@fable-org/fable-library-ts 1.0.0-beta-001

package/Char.ts

@@ -0,0 +1,222 @@
+import * as Unicode from "./Unicode.13.0.0.js";
+
+export type char = string;
+
+function getCategoryFunc() {
+  // unpack Unicode codepoint ranges (delta encoded) and general categories
+  const offset = 35; // offsets unprintable characters
+  const a1 = [...Unicode.rangeDeltas].map((ch) => (ch.codePointAt(0) ?? 0) - offset);
+  const a2 = [...Unicode.categories].map((ch) => (ch.codePointAt(0) ?? 0) - offset);
+  const codepoints = new Uint32Array(a1);
+  const categories = new Uint8Array(a2);
+  for (let i = 1; i < codepoints.length; ++i) {
+    codepoints[i] += codepoints[i - 1];
+  }
+  // binary search in unicode ranges
+  return (cp: number) => {
+    let hi = codepoints.length;
+    let lo = 0;
+    while (hi - lo > 1) {
+      const mid = Math.floor((hi + lo) / 2);
+      const test = codepoints[mid];
+      if (cp < test) {
+        hi = mid;
+      } else if (cp === test) {
+        hi = lo = mid;
+        break;
+      } else if (test < cp) {
+        lo = mid;
+      }
+    }
+    return categories[lo];
+  };
+}
+
+export const enum UnicodeCategory {
+  UppercaseLetter,
+  LowercaseLetter,
+  TitlecaseLetter,
+  ModifierLetter,
+  OtherLetter,
+  NonSpacingMark,
+  SpacingCombiningMark,
+  EnclosingMark,
+  DecimalDigitNumber,
+  LetterNumber,
+  OtherNumber,
+  SpaceSeparator,
+  LineSeparator,
+  ParagraphSeparator,
+  Control,
+  Format,
+  Surrogate,
+  PrivateUse,
+  ConnectorPunctuation,
+  DashPunctuation,
+  OpenPunctuation,
+  ClosePunctuation,
+  InitialQuotePunctuation,
+  FinalQuotePunctuation,
+  OtherPunctuation,
+  MathSymbol,
+  CurrencySymbol,
+  ModifierSymbol,
+  OtherSymbol,
+  OtherNotAssigned,
+}
+
+const isControlMask = 1 << UnicodeCategory.Control;
+const isDigitMask = 1 << UnicodeCategory.DecimalDigitNumber;
+const isLetterMask = 0
+  | 1 << UnicodeCategory.UppercaseLetter
+  | 1 << UnicodeCategory.LowercaseLetter
+  | 1 << UnicodeCategory.TitlecaseLetter
+  | 1 << UnicodeCategory.ModifierLetter
+  | 1 << UnicodeCategory.OtherLetter;
+const isLetterOrDigitMask = isLetterMask | isDigitMask;
+const isUpperMask = 1 << UnicodeCategory.UppercaseLetter;
+const isLowerMask = 1 << UnicodeCategory.LowercaseLetter;
+const isNumberMask = 0
+  | 1 << UnicodeCategory.DecimalDigitNumber
+  | 1 << UnicodeCategory.LetterNumber
+  | 1 << UnicodeCategory.OtherNumber;
+const isPunctuationMask = 0
+  | 1 << UnicodeCategory.ConnectorPunctuation
+  | 1 << UnicodeCategory.DashPunctuation
+  | 1 << UnicodeCategory.OpenPunctuation
+  | 1 << UnicodeCategory.ClosePunctuation
+  | 1 << UnicodeCategory.InitialQuotePunctuation
+  | 1 << UnicodeCategory.FinalQuotePunctuation
+  | 1 << UnicodeCategory.OtherPunctuation;
+const isSeparatorMask = 0
+  | 1 << UnicodeCategory.SpaceSeparator
+  | 1 << UnicodeCategory.LineSeparator
+  | 1 << UnicodeCategory.ParagraphSeparator;
+const isSymbolMask = 0
+  | 1 << UnicodeCategory.MathSymbol
+  | 1 << UnicodeCategory.CurrencySymbol
+  | 1 << UnicodeCategory.ModifierSymbol
+  | 1 << UnicodeCategory.OtherSymbol;
+const isWhiteSpaceMask = 0
+  | 1 << UnicodeCategory.SpaceSeparator
+  | 1 << UnicodeCategory.LineSeparator
+  | 1 << UnicodeCategory.ParagraphSeparator;
+
+const unicodeCategoryFunc = getCategoryFunc();
+
+function charCodeAt(s: string, index: number) {
+  if (index >= 0 && index < s.length) {
+    return s.charCodeAt(index);
+  } else {
+    throw new Error("Index out of range.");
+  }
+}
+
+export const getUnicodeCategory = (s: string) => getUnicodeCategory2(s, 0);
+export const isControl = (s: string) => isControl2(s, 0);
+export const isDigit = (s: string) => isDigit2(s, 0);
+export const isLetter = (s: string) => isLetter2(s, 0);
+export const isLetterOrDigit = (s: string) => isLetterOrDigit2(s, 0);
+export const isUpper = (s: string) => isUpper2(s, 0);
+export const isLower = (s: string) => isLower2(s, 0);
+export const isNumber = (s: string) => isNumber2(s, 0);
+export const isPunctuation = (s: string) => isPunctuation2(s, 0);
+export const isSeparator = (s: string) => isSeparator2(s, 0);
+export const isSymbol = (s: string) => isSymbol2(s, 0);
+export const isWhiteSpace = (s: string) => isWhiteSpace2(s, 0);
+export const isHighSurrogate = (s: string) => isHighSurrogate2(s, 0);
+export const isLowSurrogate = (s: string) => isLowSurrogate2(s, 0);
+export const isSurrogate = (s: string) => isSurrogate2(s, 0);
+
+export function getUnicodeCategory2(s: string, index: number) {
+  const cp = charCodeAt(s, index);
+  return unicodeCategoryFunc(cp);
+}
+
+export function isControl2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isControlMask) !== 0;
+}
+
+export function isDigit2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isDigitMask) !== 0;
+}
+
+export function isLetter2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isLetterMask) !== 0;
+}
+
+export function isLetterOrDigit2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isLetterOrDigitMask) !== 0;
+}
+
+export function isUpper2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isUpperMask) !== 0;
+}
+
+export function isLower2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isLowerMask) !== 0;
+}
+
+export function isNumber2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isNumberMask) !== 0;
+}
+
+export function isPunctuation2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isPunctuationMask) !== 0;
+}
+
+export function isSeparator2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isSeparatorMask) !== 0;
+}
+
+export function isSymbol2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  return (test & isSymbolMask) !== 0;
+}
+
+export function isWhiteSpace2(s: string, index: number) {
+  const test = 1 << getUnicodeCategory2(s, index);
+  if ((test & isWhiteSpaceMask) !== 0) {
+    return true;
+  }
+  const cp = charCodeAt(s, index);
+  return (0x09 <= cp && cp <= 0x0D) || cp === 0x85 || cp === 0xA0;
+}
+
+export function isHighSurrogate2(s: string, index: number) {
+  const cp = charCodeAt(s, index);
+  return (0xD800 <= cp && cp <= 0xDBFF);
+}
+
+export function isLowSurrogate2(s: string, index: number) {
+  const cp = charCodeAt(s, index);
+  return (0xDC00 <= cp && cp <= 0xDFFF);
+}
+
+export function isSurrogate2(s: string, index: number) {
+  const cp = charCodeAt(s, index);
+  return (0xD800 <= cp && cp <= 0xDFFF);
+}
+
+export function isSurrogatePair(s: string, index: string | number) {
+  return typeof index === "number"
+    ? isHighSurrogate2(s, index) && isLowSurrogate2(s, index + 1)
+    : isHighSurrogate(s) && isLowSurrogate(index);
+}
+
+export function parse(input: string) {
+  if (input.length === 1) {
+    return input[0];
+  } else {
+    throw new Error("String must be exactly one character long.");
+  }
+}

package/Choice.ts

@@ -0,0 +1,300 @@
+import { Union } from "./Types.js";
+import { union_type, TypeInfo } from "./Reflection.js";
+import { Option, some } from "./Option.js";
+
+export type FSharpChoice$2_$union<T1, T2> = 
+    | FSharpChoice$2<T1, T2, 0>
+    | FSharpChoice$2<T1, T2, 1>
+
+export type FSharpChoice$2_$cases<T1, T2> = {
+    0: ["Choice1Of2", [T1]],
+    1: ["Choice2Of2", [T2]]
+}
+
+export function FSharpChoice$2_Choice1Of2<T1, T2>(Item: T1) {
+    return new FSharpChoice$2<T1, T2, 0>(0, [Item]);
+}
+
+export function FSharpChoice$2_Choice2Of2<T1, T2>(Item: T2) {
+    return new FSharpChoice$2<T1, T2, 1>(1, [Item]);
+}
+
+export class FSharpChoice$2<T1, T2, Tag extends keyof FSharpChoice$2_$cases<T1, T2>> extends Union<Tag, FSharpChoice$2_$cases<T1, T2>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$2_$cases<T1, T2>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of2", "Choice2Of2"];
+    }
+}
+
+export function FSharpChoice$2_$reflection(gen0: TypeInfo, gen1: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`2", [gen0, gen1], FSharpChoice$2, () => [[["Item", gen0]], [["Item", gen1]]]);
+}
+
+export type FSharpChoice$3_$union<T1, T2, T3> = 
+    | FSharpChoice$3<T1, T2, T3, 0>
+    | FSharpChoice$3<T1, T2, T3, 1>
+    | FSharpChoice$3<T1, T2, T3, 2>
+
+export type FSharpChoice$3_$cases<T1, T2, T3> = {
+    0: ["Choice1Of3", [T1]],
+    1: ["Choice2Of3", [T2]],
+    2: ["Choice3Of3", [T3]]
+}
+
+export function FSharpChoice$3_Choice1Of3<T1, T2, T3>(Item: T1) {
+    return new FSharpChoice$3<T1, T2, T3, 0>(0, [Item]);
+}
+
+export function FSharpChoice$3_Choice2Of3<T1, T2, T3>(Item: T2) {
+    return new FSharpChoice$3<T1, T2, T3, 1>(1, [Item]);
+}
+
+export function FSharpChoice$3_Choice3Of3<T1, T2, T3>(Item: T3) {
+    return new FSharpChoice$3<T1, T2, T3, 2>(2, [Item]);
+}
+
+export class FSharpChoice$3<T1, T2, T3, Tag extends keyof FSharpChoice$3_$cases<T1, T2, T3>> extends Union<Tag, FSharpChoice$3_$cases<T1, T2, T3>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$3_$cases<T1, T2, T3>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of3", "Choice2Of3", "Choice3Of3"];
+    }
+}
+
+export function FSharpChoice$3_$reflection(gen0: TypeInfo, gen1: TypeInfo, gen2: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`3", [gen0, gen1, gen2], FSharpChoice$3, () => [[["Item", gen0]], [["Item", gen1]], [["Item", gen2]]]);
+}
+
+export type FSharpChoice$4_$union<T1, T2, T3, T4> = 
+    | FSharpChoice$4<T1, T2, T3, T4, 0>
+    | FSharpChoice$4<T1, T2, T3, T4, 1>
+    | FSharpChoice$4<T1, T2, T3, T4, 2>
+    | FSharpChoice$4<T1, T2, T3, T4, 3>
+
+export type FSharpChoice$4_$cases<T1, T2, T3, T4> = {
+    0: ["Choice1Of4", [T1]],
+    1: ["Choice2Of4", [T2]],
+    2: ["Choice3Of4", [T3]],
+    3: ["Choice4Of4", [T4]]
+}
+
+export function FSharpChoice$4_Choice1Of4<T1, T2, T3, T4>(Item: T1) {
+    return new FSharpChoice$4<T1, T2, T3, T4, 0>(0, [Item]);
+}
+
+export function FSharpChoice$4_Choice2Of4<T1, T2, T3, T4>(Item: T2) {
+    return new FSharpChoice$4<T1, T2, T3, T4, 1>(1, [Item]);
+}
+
+export function FSharpChoice$4_Choice3Of4<T1, T2, T3, T4>(Item: T3) {
+    return new FSharpChoice$4<T1, T2, T3, T4, 2>(2, [Item]);
+}
+
+export function FSharpChoice$4_Choice4Of4<T1, T2, T3, T4>(Item: T4) {
+    return new FSharpChoice$4<T1, T2, T3, T4, 3>(3, [Item]);
+}
+
+export class FSharpChoice$4<T1, T2, T3, T4, Tag extends keyof FSharpChoice$4_$cases<T1, T2, T3, T4>> extends Union<Tag, FSharpChoice$4_$cases<T1, T2, T3, T4>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$4_$cases<T1, T2, T3, T4>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of4", "Choice2Of4", "Choice3Of4", "Choice4Of4"];
+    }
+}
+
+export function FSharpChoice$4_$reflection(gen0: TypeInfo, gen1: TypeInfo, gen2: TypeInfo, gen3: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`4", [gen0, gen1, gen2, gen3], FSharpChoice$4, () => [[["Item", gen0]], [["Item", gen1]], [["Item", gen2]], [["Item", gen3]]]);
+}
+
+export type FSharpChoice$5_$union<T1, T2, T3, T4, T5> = 
+    | FSharpChoice$5<T1, T2, T3, T4, T5, 0>
+    | FSharpChoice$5<T1, T2, T3, T4, T5, 1>
+    | FSharpChoice$5<T1, T2, T3, T4, T5, 2>
+    | FSharpChoice$5<T1, T2, T3, T4, T5, 3>
+    | FSharpChoice$5<T1, T2, T3, T4, T5, 4>
+
+export type FSharpChoice$5_$cases<T1, T2, T3, T4, T5> = {
+    0: ["Choice1Of5", [T1]],
+    1: ["Choice2Of5", [T2]],
+    2: ["Choice3Of5", [T3]],
+    3: ["Choice4Of5", [T4]],
+    4: ["Choice5Of5", [T5]]
+}
+
+export function FSharpChoice$5_Choice1Of5<T1, T2, T3, T4, T5>(Item: T1) {
+    return new FSharpChoice$5<T1, T2, T3, T4, T5, 0>(0, [Item]);
+}
+
+export function FSharpChoice$5_Choice2Of5<T1, T2, T3, T4, T5>(Item: T2) {
+    return new FSharpChoice$5<T1, T2, T3, T4, T5, 1>(1, [Item]);
+}
+
+export function FSharpChoice$5_Choice3Of5<T1, T2, T3, T4, T5>(Item: T3) {
+    return new FSharpChoice$5<T1, T2, T3, T4, T5, 2>(2, [Item]);
+}
+
+export function FSharpChoice$5_Choice4Of5<T1, T2, T3, T4, T5>(Item: T4) {
+    return new FSharpChoice$5<T1, T2, T3, T4, T5, 3>(3, [Item]);
+}
+
+export function FSharpChoice$5_Choice5Of5<T1, T2, T3, T4, T5>(Item: T5) {
+    return new FSharpChoice$5<T1, T2, T3, T4, T5, 4>(4, [Item]);
+}
+
+export class FSharpChoice$5<T1, T2, T3, T4, T5, Tag extends keyof FSharpChoice$5_$cases<T1, T2, T3, T4, T5>> extends Union<Tag, FSharpChoice$5_$cases<T1, T2, T3, T4, T5>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$5_$cases<T1, T2, T3, T4, T5>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of5", "Choice2Of5", "Choice3Of5", "Choice4Of5", "Choice5Of5"];
+    }
+}
+
+export function FSharpChoice$5_$reflection(gen0: TypeInfo, gen1: TypeInfo, gen2: TypeInfo, gen3: TypeInfo, gen4: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`5", [gen0, gen1, gen2, gen3, gen4], FSharpChoice$5, () => [[["Item", gen0]], [["Item", gen1]], [["Item", gen2]], [["Item", gen3]], [["Item", gen4]]]);
+}
+
+export type FSharpChoice$6_$union<T1, T2, T3, T4, T5, T6> = 
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 0>
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 1>
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 2>
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 3>
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 4>
+    | FSharpChoice$6<T1, T2, T3, T4, T5, T6, 5>
+
+export type FSharpChoice$6_$cases<T1, T2, T3, T4, T5, T6> = {
+    0: ["Choice1Of6", [T1]],
+    1: ["Choice2Of6", [T2]],
+    2: ["Choice3Of6", [T3]],
+    3: ["Choice4Of6", [T4]],
+    4: ["Choice5Of6", [T5]],
+    5: ["Choice6Of6", [T6]]
+}
+
+export function FSharpChoice$6_Choice1Of6<T1, T2, T3, T4, T5, T6>(Item: T1) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 0>(0, [Item]);
+}
+
+export function FSharpChoice$6_Choice2Of6<T1, T2, T3, T4, T5, T6>(Item: T2) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 1>(1, [Item]);
+}
+
+export function FSharpChoice$6_Choice3Of6<T1, T2, T3, T4, T5, T6>(Item: T3) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 2>(2, [Item]);
+}
+
+export function FSharpChoice$6_Choice4Of6<T1, T2, T3, T4, T5, T6>(Item: T4) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 3>(3, [Item]);
+}
+
+export function FSharpChoice$6_Choice5Of6<T1, T2, T3, T4, T5, T6>(Item: T5) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 4>(4, [Item]);
+}
+
+export function FSharpChoice$6_Choice6Of6<T1, T2, T3, T4, T5, T6>(Item: T6) {
+    return new FSharpChoice$6<T1, T2, T3, T4, T5, T6, 5>(5, [Item]);
+}
+
+export class FSharpChoice$6<T1, T2, T3, T4, T5, T6, Tag extends keyof FSharpChoice$6_$cases<T1, T2, T3, T4, T5, T6>> extends Union<Tag, FSharpChoice$6_$cases<T1, T2, T3, T4, T5, T6>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$6_$cases<T1, T2, T3, T4, T5, T6>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of6", "Choice2Of6", "Choice3Of6", "Choice4Of6", "Choice5Of6", "Choice6Of6"];
+    }
+}
+
+export function FSharpChoice$6_$reflection(gen0: TypeInfo, gen1: TypeInfo, gen2: TypeInfo, gen3: TypeInfo, gen4: TypeInfo, gen5: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`6", [gen0, gen1, gen2, gen3, gen4, gen5], FSharpChoice$6, () => [[["Item", gen0]], [["Item", gen1]], [["Item", gen2]], [["Item", gen3]], [["Item", gen4]], [["Item", gen5]]]);
+}
+
+export type FSharpChoice$7_$union<T1, T2, T3, T4, T5, T6, T7> = 
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 0>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 1>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 2>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 3>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 4>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 5>
+    | FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 6>
+
+export type FSharpChoice$7_$cases<T1, T2, T3, T4, T5, T6, T7> = {
+    0: ["Choice1Of7", [T1]],
+    1: ["Choice2Of7", [T2]],
+    2: ["Choice3Of7", [T3]],
+    3: ["Choice4Of7", [T4]],
+    4: ["Choice5Of7", [T5]],
+    5: ["Choice6Of7", [T6]],
+    6: ["Choice7Of7", [T7]]
+}
+
+export function FSharpChoice$7_Choice1Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T1) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 0>(0, [Item]);
+}
+
+export function FSharpChoice$7_Choice2Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T2) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 1>(1, [Item]);
+}
+
+export function FSharpChoice$7_Choice3Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T3) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 2>(2, [Item]);
+}
+
+export function FSharpChoice$7_Choice4Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T4) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 3>(3, [Item]);
+}
+
+export function FSharpChoice$7_Choice5Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T5) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 4>(4, [Item]);
+}
+
+export function FSharpChoice$7_Choice6Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T6) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 5>(5, [Item]);
+}
+
+export function FSharpChoice$7_Choice7Of7<T1, T2, T3, T4, T5, T6, T7>(Item: T7) {
+    return new FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, 6>(6, [Item]);
+}
+
+export class FSharpChoice$7<T1, T2, T3, T4, T5, T6, T7, Tag extends keyof FSharpChoice$7_$cases<T1, T2, T3, T4, T5, T6, T7>> extends Union<Tag, FSharpChoice$7_$cases<T1, T2, T3, T4, T5, T6, T7>[Tag][0]> {
+    constructor(readonly tag: Tag, readonly fields: FSharpChoice$7_$cases<T1, T2, T3, T4, T5, T6, T7>[Tag][1]) {
+        super();
+    }
+    cases() {
+        return ["Choice1Of7", "Choice2Of7", "Choice3Of7", "Choice4Of7", "Choice5Of7", "Choice6Of7", "Choice7Of7"];
+    }
+}
+
+export function FSharpChoice$7_$reflection(gen0: TypeInfo, gen1: TypeInfo, gen2: TypeInfo, gen3: TypeInfo, gen4: TypeInfo, gen5: TypeInfo, gen6: TypeInfo): TypeInfo {
+    return union_type("FSharp.Core.FSharpChoice`7", [gen0, gen1, gen2, gen3, gen4, gen5, gen6], FSharpChoice$7, () => [[["Item", gen0]], [["Item", gen1]], [["Item", gen2]], [["Item", gen3]], [["Item", gen4]], [["Item", gen5]], [["Item", gen6]]]);
+}
+
+export function Choice_makeChoice1Of2<T1, a>(x: T1): FSharpChoice$2_$union<T1, a> {
+    return FSharpChoice$2_Choice1Of2<T1, a>(x);
+}
+
+export function Choice_makeChoice2Of2<T2, a>(x: T2): FSharpChoice$2_$union<a, T2> {
+    return FSharpChoice$2_Choice2Of2<a, T2>(x);
+}
+
+export function Choice_tryValueIfChoice1Of2<T1, T2>(x: FSharpChoice$2_$union<T1, T2>): Option<T1> {
+    if (x.tag === /* Choice1Of2 */ 0) {
+        return some(x.fields[0]);
+    }
+    else {
+        return void 0;
+    }
+}
+
+export function Choice_tryValueIfChoice2Of2<T1, T2>(x: FSharpChoice$2_$union<T1, T2>): Option<T2> {
+    if (x.tag === /* Choice2Of2 */ 1) {
+        return some(x.fields[0]);
+    }
+    else {
+        return void 0;
+    }
+}
+