diff options
Diffstat (limited to 'src/Experiments/NewPipeline/fancy_rewrite_head.out')
| -rw-r--r-- | src/Experiments/NewPipeline/fancy_rewrite_head.out | 36419 |
1 files changed, 1939 insertions, 34480 deletions
diff --git a/src/Experiments/NewPipeline/fancy_rewrite_head.out b/src/Experiments/NewPipeline/fancy_rewrite_head.out index b93038b7c..0dfac41db 100644 --- a/src/Experiments/NewPipeline/fancy_rewrite_head.out +++ b/src/Experiments/NewPipeline/fancy_rewrite_head.out @@ -1,5 +1,5 @@ fancy_rewrite_head = -match idc in (ident t) return (Compile.value' true t) with +match idc in (ident t) return (value' true t) with | @ident.Literal t v => match t as t0 @@ -8,10 +8,10 @@ match idc in (ident t) return (Compile.value' true t) with UnderLets.UnderLets base.type ident var (defaults.expr (type.base t0))) with - | base.type.unit => fun v0 : unit => UnderLets.Base ##(v0)%expr - | base.type.Z => fun v0 : Z => UnderLets.Base ##(v0)%expr - | base.type.bool => fun v0 : bool => UnderLets.Base ##(v0)%expr - | base.type.nat => fun v0 : nat => UnderLets.Base ##(v0)%expr + | base.type.unit => fun v0 : unit => UnderLets.Base (##v0)%expr + | base.type.Z => fun v0 : Z => UnderLets.Base (##v0)%expr + | base.type.bool => fun v0 : bool => UnderLets.Base (##v0)%expr + | base.type.nat => fun v0 : nat => UnderLets.Base (##v0)%expr end v | ident.Nat_succ => fun x : defaults.expr (type.base base.type.nat) => @@ -235,17457 +235,1247 @@ match idc in (ident t) return (Compile.value' true t) with UnderLets.Base (x + x0)%expr | ident.Z_mul => fun x x0 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v + (match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x0 with + | @expr.App _ _ _ s _ + (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x2) x1 => + (_ <- pattern.ident.invert_bind_args idc0 pident.Z_land; + match x1 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args1 =? 2 ^ (2 * Z.log2_up args1 / 2) - 1 + then + (x3 <- invert_low (2 * Z.log2_up args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulll + (2 * Z.log2_up args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args1 =? 2 ^ (2 * Z.log2_up args1 / 2) - 1 + then + (x3 <- invert_low (2 * Z.log2_up args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulll + (2 * Z.log2_up args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x1);; + match + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args1 =? 2 ^ (2 * Z.log2_up args1 / 2) - 1 + then + (x3 <- invert_high (2 * Z.log2_up args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulhl + (2 * Z.log2_up args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x1) + | _ => None + end;; + match x1 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args1 =? 2 ^ (2 * Z.log2_up args1 / 2) - 1 + then + (x3 <- invert_high (2 * Z.log2_up args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulhl + (2 * Z.log2_up args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x1 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + (x3 <- invert_low (2 * args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mullh (2 * args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2);; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + (x3 <- invert_high (2 * args1) args; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulhh (2 * args1))%expr @ + ((##x3)%expr, x' v))%expr_pat)));;; + None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end + | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | + @expr.App _ _ _ s _ + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App _ _ + _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | @expr.App _ _ + _ s _ (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => + None + | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ + ($_)%expr _ | @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | + @expr.App _ _ _ s _ (@expr.LetIn _ _ _ _ _ _ _) _ => None + | _ => None + end + | @expr.App _ _ _ s _ + (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t idc) x2) x1 => + (_ <- pattern.ident.invert_bind_args idc pident.Z_land; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 2 ^ (2 * Z.log2_up args0 / 2) - 1 + then + (y <- invert_low (2 * Z.log2_up args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulll + (2 * Z.log2_up args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x1) + | _ => None + end | _ => None - end - with - | Some args => - match x0 with - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ #(idc0)%expr_pat x2) - x1 => - match - match idc0 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x1 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - 1 - then - match - invert_low (2 * Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args1))%expr @ - (##(x3)%expr, x' v))%expr_pat - | None => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp - t5 -> option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v1 : Z => - Some v1 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_low - (2 * - Z.log2_up - args2) - args - with - | Some x3 => - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'1 v1))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - end - else - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'1 v1))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - | None => - match - s0 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - | ($_)%expr => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v1))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | @expr.Abs _ _ _ _ _ _ => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | (_ @ _)%expr_pat => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | @expr.LetIn _ _ _ _ _ _ _ => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - end - else - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_low - (2 * - Z.log2_up - args2) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'1 v1))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - end - else - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args2))%expr @ - (## - (x3)%expr, - x'1 v1))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args1 =? - 2 - ^ - (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some - x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'2 v2))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - | None => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - | ($_)%expr => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x3)%expr, - x'0 v1))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | @expr.Abs _ _ _ _ _ _ => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | (_ @ _)%expr_pat => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | @expr.LetIn _ _ _ _ _ _ _ => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - end - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident + end;; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 2 ^ (2 * Z.log2_up args0 / 2) - 1 + then + (y <- invert_low (2 * Z.log2_up args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulll + (2 * Z.log2_up args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 2 ^ (2 * Z.log2_up args0 / 2) - 1 + then + (y <- invert_high (2 * Z.log2_up args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mullh + (2 * Z.log2_up args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x1) + | _ => None + end + | _ => None + end;; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 2 ^ (2 * Z.log2_up args0 / 2) - 1 + then + (y <- invert_high (2 * Z.log2_up args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mullh + (2 * Z.log2_up args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.App _ _ _ s1 _ + (@expr.Ident _ _ _ t1 idc1 @ x4)%expr_pat x3 => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_land; + match x4 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s1 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident var (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option + (defaults.expr + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - - 1 - then - match - invert_low - (2 * Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up args1))%expr @ - (##(x3)%expr, x' v))%expr_pat - | None => - match - s as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - else - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - | None => - UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args1) args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args1))%expr @ - (##(x3)%expr, x' v0))%expr_pat - | None => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v1))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - else - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x3)%expr, - x'0 v1))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.Abs _ _ _ _ _ _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args1) args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args1))%expr @ - (##(x3)%expr, x' v))%expr_pat - | None => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - else - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | (_ @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args1) args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args1))%expr @ - (##(x4)%expr, x' v))%expr_pat - | None => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - else - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args1 =? - 2 ^ (2 * Z.log2_up args1 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args1) args - with - | Some x4 => - UnderLets.Base + match a0 with + | Some x'0 => + if + (args0 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) && + (args2 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) + then + Some + (UnderLets.Base (#(ident.fancy_mulll - (2 * Z.log2_up args1))%expr @ - (##(x4)%expr, x' v))%expr_pat - | None => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up - args1 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (## - (x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - else - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args1 =? - 2 - ^ (2 * - Z.log2_up args1 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args1) - args - with - | Some x4 => - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - Z.log2_up - args1))%expr @ - (##(x4)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x1 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - match - invert_low (2 * args1) args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mullh - (2 * args1))%expr @ - (##(x3)%expr, x' v))%expr_pat - | None => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - match - invert_high - (2 * args1) - args - with - | Some x3 => - UnderLets.Base - (#(ident.fancy_mulhh - (2 * - args1))%expr @ - (##(x3)%expr, - x'0 v0))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false - s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | - @expr.App _ _ _ s _ - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App - _ _ _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s _ - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => - UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ - ($_)%expr _ | @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | - @expr.App _ _ _ s _ (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ #(idc)%expr_pat x2) x1 => - match match idc with - | ident.Z_land => Some tt + (2 * Z.log2_up args0))%expr @ + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x3) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x1) + | _ => None + end + | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ _ _ s1 _ + ($_)%expr _ | @expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) + _ | @expr.App _ _ _ s1 _ (($_)%expr @ _)%expr_pat _ | + @expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat _ | + @expr.App _ _ _ s1 _ (_ @ _ @ _)%expr_pat _ | @expr.App _ _ _ + s1 _ (@expr.LetIn _ _ _ _ _ _ _ @ _)%expr_pat _ | @expr.App _ + _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ => None | _ => None - end with - | Some _ => - match x2 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => + end + | _ => None + end;; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.App _ _ _ s1 _ + (@expr.Ident _ _ _ t1 idc1 @ x4)%expr_pat x3 => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_land; + match x4 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; match - t1 as t2 return (base.base_interp t2 -> option Z) + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - 1 - then - match - invert_low (2 * Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match x1 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp - t5 -> option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v1 : Z => - Some v1 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_low - (2 * - Z.log2_up - args2) - args1 - with - | Some y => - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args2))%expr @ - ( - x'0 v0, - ## - (y)%expr))%expr_pat - | None => - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - ## - (y)%expr))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - end - else - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - ## - (y)%expr))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - match - s as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - | ($_)%expr => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v1, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - | @expr.LetIn _ _ _ _ _ _ _ => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - | _ => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - end - else - match x1 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_low - (2 * - Z.log2_up - args2) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args2))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - ## - (y)%expr))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - end - else - match - s as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - if - args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - ## - (y)%expr))%expr_pat - | None => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - end - else - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v2 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args2 =? - 2 - ^ - (2 * - Z.log2_up - args2 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args2) - args1 - with - | Some - y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args2))%expr @ - ( - x'2 v2, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> - d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : - Compile.value' - false s1 -> - Compile.value' - true d1 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x1) - end - | ($_)%expr => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v1, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | @expr.LetIn _ _ _ _ _ _ _ => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | _ => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - end - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ #(idc1)%expr_pat x4) x3 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s1 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident var (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - match - s1 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, x'0 v0))%expr_pat - else - match x1 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s1 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - match - x3 - with - | # - (idc4)%expr_pat => - match - match - idc4 - with - | @ident.Literal - t9 v3 => - match - t9 as t10 - return - (base.base_interp - t10 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v4 : Z => - Some v4 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v3 - | _ => - None - end - with - | Some - args4 => - match - s as t9 - return - (Compile.value' - false t9 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t9 => - fun - v3 : - defaults.expr - (type.base - t9) => - base.try_make_transport_cps - (fun - t10 : base.type - => - defaults.expr - (type.base - t10)) t9 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a3 : - option - (defaults.expr - (type.base - t9) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a3 - with - | Some - x'3 => - match - s2 as t10 - return - (Compile.value' - false t10 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t10 => - fun - v4 : - defaults.expr - (type.base - t10) => - base.try_make_transport_cps - (fun - t11 : base.type - => - defaults.expr - (type.base - t11)) t10 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a4 : - option - (defaults.expr - (type.base - t10) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a4 - with - | Some - x'4 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args4 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'3 v3, - x'4 v4))%expr_pat - else - match - s0 as t11 - return - (Compile.value' - false t11 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t11 => - fun - v5 : - defaults.expr - (type.base - t11) => - base.try_make_transport_cps - (fun - t12 : base.type - => - defaults.expr - (type.base - t12)) t11 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a5 : - option - (defaults.expr - (type.base - t11) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a5 - with - | Some - x'5 => - match - s2 as t12 - return - (Compile.value' - false t12 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t12 => - fun - v6 : - defaults.expr - (type.base - t12) => - base.try_make_transport_cps - (fun - t13 : base.type - => - defaults.expr - (type.base - t13)) t12 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a6 : - option - (defaults.expr - (type.base - t12) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a6 - with - | Some - x'6 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args4 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'5 v5, - x'6 v6))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x3) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - match - x3 - with - | # - (idc4)%expr_pat => - match - match - idc4 - with - | @ident.Literal - t7 v1 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v1 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v2 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t7 v2 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v3 : Z => - Some v3 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v2 - | _ => - None - end - with - | Some - args3 => - match - s as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v3 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v2, - x'2 v3))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | @expr.LetIn _ _ - _ _ _ _ _ => - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | _ => - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x1) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false - s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x3) - | None => - UnderLets.Base (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - match - x1 - with - | # - (idc4)%expr_pat => - match - match - idc4 - with - | @ident.Literal - t7 v1 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v1 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v2 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' false - t5 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base t5) - => - base.try_make_transport_cps - (fun t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v0, - x'0 v1))%expr_pat - else - match x1 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t7 v2 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v3 : Z => - Some v3 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v2 - | _ => - None - end - with - | Some - args3 => - match - s0 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v3 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'1 v2, - x'2 v3))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x1 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x1 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args3 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args3))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * args2 / - 2) - 1 - then - UnderLets.Base - (#(ident.fancy_mullh - (2 * - args2))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x1 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args3 =? - 2 - ^ - (2 * - args2 / 2) - - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x1) - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s1 _ (@expr.App _ _ _ s2 _ ($_)%expr _) - _ | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | @expr.App - _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _) - _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ _ _ - s1 _ ($_)%expr _ | @expr.App _ _ _ s1 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s1 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => - match x1 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - - 1 - then - match - invert_low - (2 * Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match - s0 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - ( - x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' - true d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - else - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ #(idc2)%expr_pat x4) - x3 => - match - match idc2 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s1 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - match - x3 - with - | # - (idc4)%expr_pat => - match - match - idc4 - with - | @ident.Literal - t7 v1 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v1 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v2 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x3) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x3 with - | #(idc4)%expr_pat => - match - match idc4 with - | @ident.Literal t5 v => - match - t5 as t6 - return - (base.base_interp - t6 -> option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v0 : Z => - Some v0 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t5 - return - (Compile.value' false - t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v : defaults.expr - (type.base t5) - => - base.try_make_transport_cps - (fun t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v0 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 v0 => - match - t5 as t6 - return - (base.base_interp t6 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t5 - return - (Compile.value' false t5 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base t5) - => - base.try_make_transport_cps - (fun t6 : base.type => - defaults.expr - (type.base t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' true - d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc2 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args0 =? - 2 - ^ - (2 * - args2 / 2) - - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ ($_)%expr _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) - _) _ | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _) _ => - UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | - @expr.App _ _ _ s1 _ ($_)%expr _ | @expr.App _ - _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ | @expr.App - _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x1 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t2 v0 => - match - t2 as t3 return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args0) args1 - with - | Some y => - UnderLets.Base + match a0 with + | Some x'0 => + if + (args0 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) && + (args2 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) + then + Some + (UnderLets.Base (#(ident.fancy_mulll (2 * Z.log2_up args0))%expr @ - (x' v0, ##(y)%expr))%expr_pat - | None => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v1, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - else - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v1 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v1, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ #(idc1)%expr_pat x4) x3 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets base.type - ident var + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x3) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end + | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ _ _ s1 _ + ($_)%expr _ | @expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) + _ | @expr.App _ _ _ s1 _ (($_)%expr @ _)%expr_pat _ | + @expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat _ | + @expr.App _ _ _ s1 _ (_ @ _ @ _)%expr_pat _ | @expr.App _ _ _ + s1 _ (@expr.LetIn _ _ _ _ _ _ _ @ _)%expr_pat _ | @expr.App _ + _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ => None + | _ => None + end + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | (@expr.App _ _ _ s2 _ (@expr.Ident _ _ _ t1 idc1) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_land; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s1 as t5 - return - (Compile.value' false - t5 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base t5) - => - base.try_make_transport_cps - (fun t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v0, - x'0 v1))%expr_pat - else - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t7 v2 => - match - t7 as t8 - return - (base.base_interp - t8 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v3 : Z => - Some v3 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v2 - | _ => - None - end - with - | Some - args3 => - match - s0 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t8 - return - (Compile.value' - false t8 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t8 => - fun - v3 : - defaults.expr - (type.base - t8) => - base.try_make_transport_cps - (fun - t9 : base.type - => - defaults.expr - (type.base - t9)) t8 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t8) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v2, - x'2 v3))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x3) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 v0 => - match - t5 as t6 - return - (base.base_interp t6 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t5 - return - (Compile.value' false t5 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base t5) - => - base.try_make_transport_cps - (fun t6 : base.type => - defaults.expr - (type.base t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t5 v1 => - match - t5 as t6 - return - (base.base_interp t6 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v2 : Z => Some v2 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v1 - | _ => None - end - with - | Some args2 => - match - s0 as t5 - return - (Compile.value' false t5 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base t5) => - base.try_make_transport_cps - (fun t6 : base.type => - defaults.expr - (type.base t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t6 => - fun - v2 : defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base t7)) - t6 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v1, - x'0 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ - (2 * args2 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ ($_)%expr _) _ | @expr.App _ - _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _) - _ | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _) _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ - _ _ s1 _ ($_)%expr _ | @expr.App _ _ _ s1 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s1 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.Abs _ _ _ _ _ _ => - match x1 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args0) args1 - with - | Some y => - UnderLets.Base + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + (args0 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) && + (args2 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) + then + Some + (UnderLets.Base (#(ident.fancy_mulll (2 * Z.log2_up args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - else - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ #(idc1)%expr_pat x4) x3 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x1) + | _ => None + end + | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end + | _ => None + end;; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | (@expr.App _ _ _ s2 _ (@expr.Ident _ _ _ t1 idc1) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_land; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s3 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x3) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' true - d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s5 -> d5)%ptype => - fun - _ : Compile.value' - false s5 -> - Compile.value' - true d5 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s5 -> d5)%ptype => - fun - _ : Compile.value' false s5 -> - Compile.value' true d5 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ - (2 * args2 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ ($_)%expr _) _ | @expr.App _ - _ _ s2 _ - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _) - _ | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _) _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s2 _ #(_)%expr_pat _ | @expr.App _ - _ _ s2 _ ($_)%expr _ | @expr.App _ _ _ s2 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | (_ @ _)%expr_pat => - match x1 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args0) args1 - with - | Some y => - UnderLets.Base + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + (args0 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) && + (args2 =? + 2 ^ (2 * Z.log2_up args0 / 2) - + 1) + then + Some + (UnderLets.Base (#(ident.fancy_mulll (2 * Z.log2_up args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' - false s2 -> - Compile.value' true - d2 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - else - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ #(idc1)%expr_pat x5) x4 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end + | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | (@expr.App _ _ _ s2 _ (@expr.Ident _ _ _ t1 idc1) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x4 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s3 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> - d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : - Compile.value' - false s4 -> - Compile.value' - true d4 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' true - d4 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s5 -> d5)%ptype => - fun - _ : Compile.value' - false s5 -> - Compile.value' - true d5 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s5 -> d5)%ptype => - fun - _ : Compile.value' false s5 -> - Compile.value' true d5 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s3 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ - (2 * args2 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ ($_)%expr _) _ | @expr.App _ - _ _ s2 _ - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _) - _ | @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s2 _ - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _) _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s2 _ #(_)%expr_pat _ | @expr.App _ - _ _ s2 _ ($_)%expr _ | @expr.App _ _ _ s2 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x1 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if - args0 =? - 2 ^ (2 * Z.log2_up args0 / 2) - 1 - then - match - invert_low - (2 * Z.log2_up args0) args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulll - (2 * Z.log2_up args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1 - then - match - invert_high - (2 * - Z.log2_up - args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ## - (y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' - false s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - else - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ (2 * - Z.log2_up args0 / - 2) - 1 - then - match - invert_high - (2 * - Z.log2_up args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mullh - (2 * - Z.log2_up - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ #(idc1)%expr_pat x5) x4 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + args0 =? 2 ^ (2 * args2 / 2) - 1 + then + Some + (UnderLets.Base + (#(ident.fancy_mullh + (2 * args2))%expr @ + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x1) + | _ => None + end + | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end + | _ => None + end;; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | (@expr.App _ _ _ s2 _ (@expr.Ident _ _ _ t1 idc1) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc1 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s1 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (#(ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x4 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args3 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - (args0 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) && - (args2 =? - 2 - ^ - (2 * - Z.log2_up - args0 / 2) - - 1) - then - UnderLets.Base - (# - (ident.fancy_mulll - (2 * - Z.log2_up - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - 2 - ^ - (2 * args2 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mullh - (2 * - args2))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x5) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ ($_)%expr _) _ | @expr.App _ - _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _) - _ | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _) _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ - _ _ s1 _ ($_)%expr _ | @expr.App _ _ _ s1 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s1 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc with - | ident.Z_shiftr => Some tt + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + args0 =? 2 ^ (2 * args2 / 2) - 1 + then + Some + (UnderLets.Base + (#(ident.fancy_mullh + (2 * args2))%expr @ + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end + | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None | _ => None end - with - | Some _ => - match x1 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match x0 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc pident.Z_shiftr; + match x1 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match x0 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + (y <- invert_low (2 * args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulhl (2 * args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2);; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + (y <- invert_high (2 * args0) args1; + Some + (Some + (UnderLets.Base + (#(ident.fancy_mulhh (2 * args0))%expr @ + (x' v, (##y)%expr))%expr_pat)));;; + None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | @expr.App _ _ _ s1 _ + (@expr.App _ _ _ s2 _ (@expr.Ident _ _ _ t1 idc1) x4) x3 => + (_ <- pattern.ident.invert_bind_args idc1 pident.Z_land; + match x4 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s1 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option + (defaults.expr + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + args2 =? 2 ^ (2 * args0 / 2) - 1 + then + Some + (UnderLets.Base + (#(ident.fancy_mulhl + (2 * args0))%expr @ + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x3) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end;; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 + return + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 + base.type.Z + (fun + a0 : option + (defaults.expr + (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if + args2 =? 2 ^ (2 * args0 / 2) - 1 + then + Some + (UnderLets.Base + (#(ident.fancy_mulhl + (2 * args0))%expr @ + (x' v, x'0 v0))%expr_pat) + else None + | None => None + end) + | (s3 -> d3)%ptype => + fun + _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc1 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t2 idc2 => + args2 <- pattern.ident.invert_bind_args idc2 + pattern.ident.LiteralZ; + match + s0 as t3 + return + (value' false t3 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t3 => + fun v : defaults.expr (type.base t3) => + base.try_make_transport_cps t3 base.type.Z + (fun + a : option + (defaults.expr (type.base t3) -> + defaults.expr (type.base base.type.Z)) + => + match a with + | Some x' => + match + s2 as t4 return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 + (value' false t4 -> + option + (UnderLets.UnderLets base.type ident + var + (defaults.expr + (type.base base.type.Z)))) + with + | type.base t4 => + fun v0 : defaults.expr (type.base t4) => + base.try_make_transport_cps t4 base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - match - invert_low (2 * args0) args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulhl + a0 : option + (defaults.expr (type.base t4) -> + defaults.expr + (type.base base.type.Z)) + => + match a0 with + | Some x'0 => + if args0 =? args2 + then + Some + (UnderLets.Base + (#(ident.fancy_mulhh (2 * args0))%expr @ - (x' v, ##(y)%expr))%expr_pat - | None => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - match - invert_high - (2 * args0) - args1 - with - | Some y => - UnderLets.Base - (#(ident.fancy_mulhh - (2 * - args0))%expr @ - (x'0 v0, - ##(y)%expr))%expr_pat - | None => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false - s1 -> - Compile.value' true - d1 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - end - | None => UnderLets.Base (x * x0)%expr + (x' v, x'0 v0))%expr_pat) + else None + | None => None end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => UnderLets.Base (x * x0)%expr - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ #(idc1)%expr_pat x4) x3 => - match - match idc1 with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - match - s1 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ (2 * args0 / - 2) - 1 - then - UnderLets.Base - (#(ident.fancy_mulhl - (2 * - args0))%expr @ - (x' v, - x'0 v0))%expr_pat - else - match x3 with - | #(idc3)%expr_pat => - match - match - idc3 - with - | @ident.Literal - t6 v1 => - match - t6 as t7 - return - (base.base_interp - t7 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v2 : Z => - Some v2 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v1 - | _ => - None - end - with - | Some - args3 => - match - s0 as t6 - return - (Compile.value' - false t6 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t6 => - fun - v1 : - defaults.expr - (type.base - t6) => - base.try_make_transport_cps - (fun - t7 : base.type - => - defaults.expr - (type.base - t7)) t6 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a1 : - option - (defaults.expr - (type.base - t6) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a1 - with - | Some - x'1 => - match - s2 as t7 - return - (Compile.value' - false t7 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base - t7 => - fun - v2 : - defaults.expr - (type.base - t7) => - base.try_make_transport_cps - (fun - t8 : base.type - => - defaults.expr - (type.base - t8)) t7 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a2 : - option - (defaults.expr - (type.base - t7) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a2 - with - | Some - x'2 => - if - args3 =? - 2 - ^ - (2 * - args0 / 2) - - 1 - then - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - args0))%expr @ - ( - x'1 v1, - x'2 v2))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> - d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x2) - | None => - UnderLets.Base - (x * x0)%expr - end - | _ => - UnderLets.Base - (x * x0)%expr - end - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x3) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args2 =? - 2 - ^ - (2 * - args0 / 2) - - 1 - then - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect - x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | ($_)%expr => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t5 => - fun - v1 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base t6)) - t5 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ - (2 * args0 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - args0))%expr @ - ( - x' v0, - x'0 v1))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ - (2 * args0 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args2 =? - 2 - ^ - (2 * args0 / - 2) - 1 - then - UnderLets.Base - (# - (ident.fancy_mulhl - (2 * - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' - true d4 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - match - s2 as t4 - return - (Compile.value' - false t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - base.type.Z))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base - t4) => - base.try_make_transport_cps - (fun - t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : - option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args0 =? - args2 - then - UnderLets.Base - (# - (ident.fancy_mulhh - (2 * - args0))%expr @ - ( - x' v, - x'0 v0))%expr_pat - else - UnderLets.Base - (x * x0)%expr - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (x * x0)%expr - end - (Compile.reflect x4) - | None => - UnderLets.Base - (x * x0)%expr - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base (x * x0)%expr - end (Compile.reflect x2) - | None => - UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ ($_)%expr _) _ | @expr.App _ - _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _) - _ | @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | - @expr.App _ _ _ s1 _ - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _) _ => UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ - _ _ s1 _ ($_)%expr _ | @expr.App _ _ _ s1 _ - (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s1 _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - | _ => UnderLets.Base (x * x0)%expr - end - | None => UnderLets.Base (x * x0)%expr - end - end - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | @expr.App _ - _ _ s _ (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App - _ _ _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | @expr.App _ _ _ - s _ (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => - UnderLets.Base (x * x0)%expr - | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ ($_)%expr _ | - @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s _ - (@expr.LetIn _ _ _ _ _ _ _) _ => UnderLets.Base (x * x0)%expr - | _ => UnderLets.Base (x * x0)%expr - end + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 + => None + end (reflect x4) + | None => None + end) + | (s3 -> d3)%ptype => + fun _ : value' false s3 -> value' true d3 => None + end (reflect x2) + | _ => None + end + | @expr.App _ _ _ s1 _ (@expr.App _ _ _ s2 _ ($_)%expr _) _ | + @expr.App _ _ _ s1 _ + (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App + _ _ _ s1 _ (@expr.App _ _ _ s2 _ (_ @ _)%expr_pat _) _ | + @expr.App _ _ _ s1 _ + (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => None + | @expr.App _ _ _ s1 _ #(_)%expr_pat _ | @expr.App _ _ _ s1 _ + ($_)%expr _ | @expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ | + @expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ => None + | _ => None + end + | _ => None + end + | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | @expr.App _ + _ _ s _ (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App + _ _ _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | @expr.App _ _ + _ s _ (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => None + | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ ($_)%expr + _ | @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s + _ (@expr.LetIn _ _ _ _ _ _ _) _ => None + | _ => None + end;;; + UnderLets.Base (x * x0)%expr)%option | ident.Z_pow => fun x x0 : defaults.expr (type.base base.type.Z) => UnderLets.Base (#(ident.Z_pow)%expr @ x @ x0)%expr_pat @@ -17745,17081 +1535,750 @@ match idc in (ident t) return (Compile.value' true t) with UnderLets.Base (#(ident.Z_mul_split)%expr @ x @ x0 @ x1)%expr_pat | ident.Z_add_get_carry => fun x x0 x1 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v + ((match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x1 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x3 @ x2)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_add (Z.log2 args) args1)%expr @ + (x0, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None | _ => None - end - with - | Some args => - match x1 with - | #(_)%expr_pat => - match x0 with - | (@expr.App _ _ _ s0 _ #(idc1) x3 @ x2)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | ($_)%expr => - match x0 with - | (@expr.App _ _ _ s0 _ #(idc0) x3 @ x2)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | @expr.Abs _ _ _ _ _ _ => - match x0 with - | (@expr.App _ _ _ s1 _ #(idc0) x3 @ x2)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (#(_) @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s1 _ #(idc1) x4 @ x3)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (($_)%expr @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s1 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.App _ _ _ s0 _ #(idc0) x3 @ x2)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) - args1)%expr @ (x0, x' v))%expr_pat - else - match x0 with - | (@expr.App _ _ _ s2 _ #(idc2) x5 @ - x4)%expr_pat => - match - match idc2 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v1 : Z => - Some v1 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => - None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) - args3)%expr @ - (x1, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - (Compile.reflect x5) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - match - match idc2 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun v1 : Z - => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) - (- args3))%expr @ - (x1, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end - (Compile.reflect - x5) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ - _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x3) - | None => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc2) x5 @ x4)%expr_pat => - match - match idc2 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc2 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) - _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - end - | ($_)%expr => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc1) x5 @ x4)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v0))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x1, x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | @expr.Abs _ _ _ _ _ _ => - match x0 with - | (@expr.App _ _ _ s3 _ #(idc1) x5 @ x4)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (_ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s3 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x0 with - | #(_)%expr_pat => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | ($_)%expr => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (#(_) @ _)%expr_pat => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (($_)%expr @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (@expr.App _ _ _ s2 _ #(idc1) x5 @ x4)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args2)%expr @ - (x1, x' v))%expr_pat - else - match x2 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun v1 : Z - => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s0 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) - (- args3))%expr @ - (x0, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end - (Compile.reflect - x3) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - match x2 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x0, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - end - | ($_)%expr => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x0, x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x0, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x0, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args2))%expr @ - (x0, x' v))%expr_pat - else - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal - t5 v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v1 : Z => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base - t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) - (- args3))%expr @ - (x1, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end - (Compile.reflect - x5) - | None => - if - args =? - 2 - ^ Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - match x4 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp - t5 -> option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v0 : Z => - Some v0 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 - ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 - ^ Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_get_carry)%expr @ - x @ x0 @ - x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - end - | ($_)%expr => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x1, x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) - (- args2))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 - args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' true - d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - end - | None => - match x2 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - end - | None => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc1) x5 @ x4)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - args1)%expr @ - (x1, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s3 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s3 _ #(idc0) x6 @ x5)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s2 _ #(idc0) x6 @ x5)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | (@expr.LetIn _ _ _ _ _ _ _ @ _)%expr_pat => - match x0 with - | (@expr.App _ _ _ s1 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x0 with - | (@expr.App _ _ _ s0 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) args1)%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) - (- args1))%expr @ - (x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ - x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ - x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - end - | None => - UnderLets.Base - (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end - | _ => - UnderLets.Base (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat - end + end;; + match x0 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x3 @ x2)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_add (Z.log2 args) args1)%expr @ + (x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + match x1 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x3 @ x2)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_add (Z.log2 args) (- args1))%expr @ + (x0, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + match x0 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x3 @ x2)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_add (Z.log2 args) (- args1))%expr @ + (x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + (if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_add (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat) + else None) + | _ => None + end;; + None);;; + UnderLets.Base (#(ident.Z_add_get_carry)%expr @ x @ x0 @ x1)%expr_pat)%option | ident.Z_add_with_carry => fun x x0 x1 : defaults.expr (type.base base.type.Z) => UnderLets.Base (#(ident.Z_add_with_carry)%expr @ x @ x0 @ x1)%expr_pat | ident.Z_add_with_get_carry => fun x x0 x1 x2 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v + ((match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x2 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_addc (Z.log2 args) args1)%expr @ + (x0, x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None | _ => None - end - with - | Some args => - match x2 with - | #(_)%expr_pat => - match x1 with - | (@expr.App _ _ _ s0 _ #(idc1) x4 @ x3)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | ($_)%expr => - match x1 with - | (@expr.App _ _ _ s0 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | @expr.Abs _ _ _ _ _ _ => - match x1 with - | (@expr.App _ _ _ s1 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (#(_) @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s1 _ #(idc1) x5 @ x4)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (($_)%expr @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s1 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s1 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s0 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - args1)%expr @ (x0, x1, x' v))%expr_pat - else - match x1 with - | (@expr.App _ _ _ s2 _ #(idc2) x6 @ - x5)%expr_pat => - match - match idc2 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v1 : Z => - Some v1 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => - None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) - args3)%expr @ - (x0, x2, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end - (Compile.reflect x6) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc2 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun v1 : Z - => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) - (- args3))%expr @ - (x0, x2, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end - (Compile.reflect - x6) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ - _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc2) x6 @ x5)%expr_pat => - match - match idc2 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc2 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) - _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ - (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - end - | ($_)%expr => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v0))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x2, x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | @expr.Abs _ _ _ _ _ _ => - match x1 with - | (@expr.App _ _ _ s3 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | (_ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s3 _ #(idc1) x7 @ x6)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s3 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc1) x7 @ x6)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x1 with - | #(_)%expr_pat => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | ($_)%expr => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (#(_) @ _)%expr_pat => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (($_)%expr @ _)%expr_pat => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (@expr.Abs _ _ _ _ _ _ @ _)%expr_pat => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s2 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args2)%expr @ - (x0, x2, x' v))%expr_pat - else - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t5 - v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun v1 : Z - => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s0 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) - (- args3))%expr @ - (x0, x1, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end - (Compile.reflect - x4) - | None => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - match x3 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | ($_)%expr => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s0 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x1, x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args2))%expr @ - (x0, x1, x' v))%expr_pat - else - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal - t5 v0 => - match - t5 as t6 - return - (base.base_interp - t6 -> - option Z) - with - | base.type.unit => - fun - _ : unit - => None - | base.type.Z => - fun - v1 : Z => - Some v1 - | base.type.bool => - fun - _ : bool - => None - | base.type.nat => - fun - _ : nat - => None - end v0 - | _ => None - end - with - | Some args3 => - match - s2 as t5 - return - (Compile.value' - false t5 -> - UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base - t5 => - fun - v0 : - defaults.expr - (type.base - t5) => - base.try_make_transport_cps - (fun - t6 : base.type - => - defaults.expr - (type.base - t6)) t5 - base.type.Z - (UnderLets.UnderLets - base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a0 : - option - (defaults.expr - (type.base - t5) -> - defaults.expr - (type.base - base.type.Z)) - => - match - a0 - with - | Some - x'0 => - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) - (- args3))%expr @ - (x0, x2, - x'0 v0))%expr_pat - else - if - args =? - 2 - ^ - Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - | None => - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : - Compile.value' - false s3 -> - Compile.value' - true d3 - => - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end - (Compile.reflect - x6) - | None => - if - args =? - 2 - ^ Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - end - | _ => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - match x5 with - | #(idc3)%expr_pat => - match - match idc3 with - | @ident.Literal t4 v => - match - t4 as t5 - return - (base.base_interp - t5 -> option Z) - with - | base.type.unit => - fun _ : unit => - None - | base.type.Z => - fun v0 : Z => - Some v0 - | base.type.bool => - fun _ : bool => - None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false - t4 -> - UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type - => - defaults.expr - (type.base t5)) - t4 base.type.Z - (UnderLets.UnderLets - base.type ident - var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 - ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x2, - x' v))%expr_pat - else - if - args =? - 2 - ^ Z.log2 - args - then - UnderLets.Base - (# - (ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, - x2))%expr_pat - else - UnderLets.Base - (# - (ident.Z_add_with_get_carry)%expr @ - x @ x0 @ - x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' - true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | ($_)%expr => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t4 v0 => - match - t4 as t5 - return - (base.base_interp t5 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args2 => - match - s2 as t4 - return - (Compile.value' false t4 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t4 => - fun - v0 : defaults.expr - (type.base t4) - => - base.try_make_transport_cps - (fun t5 : base.type => - defaults.expr - (type.base t5)) t4 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t4) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x2, - x' v0))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' - false s3 -> - Compile.value' true - d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args2 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base - t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) - (- args2))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 - args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ - x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' - false s4 -> - Compile.value' true - d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | None => - match x3 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - end - | None => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc1) x6 @ x5)%expr_pat => - match - match idc1 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) - t3 base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - match - match idc1 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc2)%expr_pat => - match - match idc2 with - | @ident.Literal t3 v => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - with - | type.base t3 => - fun - v : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - (base.type.Z * - base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a with - | Some x' => - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if - args =? - 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 - => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) - _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc0) x6 @ x5)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return (base.base_interp t4 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t3) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s2 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t3 => - fun v0 : defaults.expr (type.base t3) - => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v0))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s3 _ #(idc0) x6 @ x5)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s3 _ #(idc0) x7 @ x6)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s3 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s4 -> d4)%ptype => - fun - _ : Compile.value' false s4 -> - Compile.value' true d4 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s3 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s3 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s2 _ #(idc0) x7 @ x6)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x6 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s2 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s3 -> d3)%ptype => - fun - _ : Compile.value' false s3 -> - Compile.value' true d3 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x7) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s2 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s2 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | (@expr.LetIn _ _ _ _ _ _ _ @ _)%expr_pat => - match x1 with - | (@expr.App _ _ _ s1 _ #(idc0) x6 @ x5)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x5 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s1 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x6) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s1 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s1 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x1 with - | (@expr.App _ _ _ s0 _ #(idc0) x5 @ x4)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) args1)%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x4 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return - (base.base_interp t3 -> option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => - fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) - => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type - ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr - (type.base t2) -> - defaults.expr - (type.base base.type.Z)) - => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) - (- args1))%expr @ - (x0, x2, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x5) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_addc (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - end - | None => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - UnderLets.Base - (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end + end;; + match x1 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_addc (Z.log2 args) args1)%expr @ + (x0, x2, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + match x2 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_addc (Z.log2 args) + (- args1))%expr @ (x0, x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + match x1 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x4 @ x3)%expr_pat => + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_addc (Z.log2 args) + (- args1))%expr @ (x0, x2, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None + | _ => None + end;; + (if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_addc (Z.log2 args) 0)%expr @ (x0, x1, x2))%expr_pat) + else None) + | _ => None + end;; + None);;; + UnderLets.Base + (#(ident.Z_add_with_get_carry)%expr @ x @ x0 @ x1 @ x2)%expr_pat)%option | ident.Z_sub_get_borrow => fun x x0 x1 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v + ((match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x1 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x3 @ x2)%expr_pat => + (_ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_sub (Z.log2 args) args1)%expr @ + (x0, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x2 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_sub (Z.log2 args) (- args1))%expr @ + (x0, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None | _ => None - end - with - | Some args => - match x1 with - | (@expr.App _ _ _ s0 _ #(idc0) x3 @ x2)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) - args1)%expr @ (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ - x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ - x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub - (Z.log2 args) (- args1))%expr @ - (x0, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub - (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ - x @ x0 @ x1)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ - x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ - x1)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_sub (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end - | _ => - UnderLets.Base - (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat - end + end;; + (if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_sub (Z.log2 args) 0)%expr @ (x0, x1))%expr_pat) + else None) + | _ => None + end;; + None);;; + UnderLets.Base (#(ident.Z_sub_get_borrow)%expr @ x @ x0 @ x1)%expr_pat)%option | ident.Z_sub_with_get_borrow => fun x x0 x1 x2 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v + ((match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x2 with + | (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t0 idc0) x4 @ x3)%expr_pat => + (_ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftl; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_subb (Z.log2 args) args1)%expr @ + (x0, x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc0 pident.Z_shiftr; + match x3 with + | @expr.Ident _ _ _ t1 idc1 => + args1 <- pattern.ident.invert_bind_args idc1 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr + (type.base (base.type.Z * base.type.Z)%etype)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_subb (Z.log2 args) + (- args1))%expr @ (x0, x1, x' v))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x4) + | _ => None + end + | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => + None | _ => None - end - with - | Some args => - match x2 with - | (@expr.App _ _ _ s0 _ #(idc0) x4 @ x3)%expr_pat => - match - match idc0 with - | ident.Z_shiftl => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) - args1)%expr @ (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) - 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ - x2)%expr_pat - end - | None => - match - match idc0 with - | ident.Z_shiftr => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args1 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base - (base.type.Z * base.type.Z)%etype))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb - (Z.log2 args) (- args1))%expr @ - (x0, x1, x' v))%expr_pat - else - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb - (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ - x @ x0 @ x1 @ x2)%expr_pat - end (Compile.reflect x4) - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ - x0 @ x1 @ x2)%expr_pat - end - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ - x1 @ x2)%expr_pat - end - | None => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ - (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ - x2)%expr_pat - end - end - | (@expr.App _ _ _ s0 _ ($_)%expr _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (_ @ _) _ @ _)%expr_pat | - (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _ @ _)%expr_pat => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | _ => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_subb (Z.log2 args) 0)%expr @ (x0, x1, x2))%expr_pat - else - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - UnderLets.Base - (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end + end;; + (if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_subb (Z.log2 args) 0)%expr @ (x0, x1, x2))%expr_pat) + else None) + | _ => None + end;; + None);;; + UnderLets.Base + (#(ident.Z_sub_with_get_borrow)%expr @ x @ x0 @ x1 @ x2)%expr_pat)%option | ident.Z_zselect => fun x x0 x1 : defaults.expr (type.base base.type.Z) => - match x with - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ #(idc)%expr_pat x3) x2 => - match match idc with - | ident.Z_cc_m => Some tt - | _ => None - end with - | Some _ => + (((match x with + | @expr.App _ _ _ s _ + (@expr.App _ _ _ s0 _ (@expr.Ident _ _ _ t idc) x3) x2 => + (_ <- pattern.ident.invert_bind_args idc pident.Z_cc_m; match x3 with - | #(idc0)%expr_pat => + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) with - | Some args0 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t1 : base.type => defaults.expr (type.base t1)) - t2 base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr (type.base base.type.Z)) => - match a with - | Some x' => - if args0 =? 2 ^ Z.log2 args0 - then - UnderLets.Base - (#(ident.fancy_selm (Z.log2 args0))%expr @ - (x' v, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x2) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | None => - match - match idc with - | ident.Z_land => Some tt - | _ => None - end - with - | Some _ => - match x3 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match - s as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t1 : base.type => - defaults.expr (type.base t1)) t2 base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr (type.base base.type.Z)) - => - match a with - | Some x' => - if args0 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x' v, x0, x1))%expr_pat - else - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t3 v0 => - match - t3 as t4 - return - (base.base_interp t4 -> - option Z) - with - | base.type.unit => - fun _ : unit => None - | base.type.Z => - fun v1 : Z => Some v1 - | base.type.bool => - fun _ : bool => None - | base.type.nat => - fun _ : nat => None - end v0 - | _ => None - end - with - | Some args1 => - match - s0 as t3 - return - (Compile.value' false t3 -> - UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base base.type.Z))) - with - | type.base t3 => - fun - v0 : defaults.expr - (type.base t3) => - base.try_make_transport_cps - (fun t4 : base.type => - defaults.expr - (type.base t4)) t3 - base.type.Z - (UnderLets.UnderLets - base.type ident var - (defaults.expr - (type.base - base.type.Z))) - (fun - a0 : option - (defaults.expr - (type.base t3) -> - defaults.expr - (type.base - base.type.Z)) - => - match a0 with - | Some x'0 => - if args1 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x'0 v0, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ - x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 - => - UnderLets.Base - (#(ident.Z_zselect)%expr @ - x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - end - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x2) - | None => - match x2 with - | #(idc1)%expr_pat => - match - match idc1 with - | @ident.Literal t2 v => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident - var - (defaults.expr - (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args0 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x' v, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ - x0 @ x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - end - | ($_)%expr => - match x2 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t2 v0 => - match - t2 as t3 - return (base.base_interp t3 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v1 : Z => Some v1 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v0 - | _ => None - end - with - | Some args0 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v0 : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t3 : base.type => - defaults.expr (type.base t3)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args0 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x' v0, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ - x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | @expr.LetIn _ _ _ _ _ _ _ => - match x2 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 - return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t1 : base.type => - defaults.expr (type.base t1)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args0 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x' v, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ - x1)%expr_pat - end) - | (s1 -> d1)%ptype => - fun - _ : Compile.value' false s1 -> - Compile.value' true d1 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - match x2 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 - return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - match - s0 as t2 - return - (Compile.value' false t2 -> - UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - with - | type.base t2 => - fun v : defaults.expr (type.base t2) => - base.try_make_transport_cps - (fun t1 : base.type => - defaults.expr (type.base t1)) t2 - base.type.Z - (UnderLets.UnderLets base.type ident var - (defaults.expr (type.base base.type.Z))) - (fun - a : option - (defaults.expr (type.base t2) -> - defaults.expr - (type.base base.type.Z)) => - match a with - | Some x' => - if args0 =? 1 - then - UnderLets.Base - (#(ident.fancy_sell)%expr @ - (x' v, x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.fancy_selc)%expr @ - (x, x0, x1))%expr_pat - | None => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ - x1)%expr_pat - end) - | (s2 -> d2)%ptype => - fun - _ : Compile.value' false s2 -> - Compile.value' true d2 => - UnderLets.Base - (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat - end (Compile.reflect x3) - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - | _ => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - end - | None => - UnderLets.Base - (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end - end - | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | @expr.App _ - _ _ s _ (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | @expr.App - _ _ _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | @expr.App _ _ _ - s _ (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => - UnderLets.Base (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ ($_)%expr _ | - @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ s _ - (@expr.LetIn _ _ _ _ _ _ _) _ => - UnderLets.Base (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - | _ => UnderLets.Base (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat - end + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 2 ^ Z.log2 args0 + then + Some + (UnderLets.Base + (#(ident.fancy_selm (Z.log2 args0))%expr @ + (x' v, x0, x1))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end);; + _ <- pattern.ident.invert_bind_args idc pident.Z_land; + match x3 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match + s as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 1 + then + Some + (UnderLets.Base + (#(ident.fancy_sell)%expr @ (x' v, x0, x1))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x2) + | _ => None + end;; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + match + s0 as t2 + return + (value' false t2 -> + option + (UnderLets.UnderLets base.type ident var + (defaults.expr (type.base base.type.Z)))) + with + | type.base t2 => + fun v : defaults.expr (type.base t2) => + base.try_make_transport_cps t2 base.type.Z + (fun + a : option + (defaults.expr (type.base t2) -> + defaults.expr (type.base base.type.Z)) => + match a with + | Some x' => + if args0 =? 1 + then + Some + (UnderLets.Base + (#(ident.fancy_sell)%expr @ (x' v, x0, x1))%expr_pat) + else None + | None => None + end) + | (s1 -> d1)%ptype => + fun _ : value' false s1 -> value' true d1 => None + end (reflect x3) + | _ => None + end + | @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ ($_)%expr _) _ | @expr.App + _ _ _ s _ (@expr.App _ _ _ s0 _ (@expr.Abs _ _ _ _ _ _) _) _ | + @expr.App _ _ _ s _ (@expr.App _ _ _ s0 _ (_ @ _)%expr_pat _) _ | + @expr.App _ _ _ s _ + (@expr.App _ _ _ s0 _ (@expr.LetIn _ _ _ _ _ _ _) _) _ => None + | @expr.App _ _ _ s _ #(_)%expr_pat _ | @expr.App _ _ _ s _ ($_)%expr + _ | @expr.App _ _ _ s _ (@expr.Abs _ _ _ _ _ _) _ | @expr.App _ _ _ + s _ (@expr.LetIn _ _ _ _ _ _ _) _ => None + | _ => None + end;; + Some + (UnderLets.Base (#(ident.fancy_selc)%expr @ (x, x0, x1))%expr_pat));; + None);;; + UnderLets.Base (#(ident.Z_zselect)%expr @ x @ x0 @ x1)%expr_pat)%option | ident.Z_add_modulo => fun x x0 x1 : defaults.expr (type.base base.type.Z) => UnderLets.Base (#(ident.fancy_addm)%expr @ (x, x0, x1))%expr_pat | ident.Z_rshi => fun x x0 x1 x2 : defaults.expr (type.base base.type.Z) => - match x with - | #(idc)%expr_pat => - match - match idc with - | @ident.Literal t0 v => - match t0 as t1 return (base.base_interp t1 -> option Z) with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args => - match x2 with - | #(idc0)%expr_pat => - match - match idc0 with - | @ident.Literal t1 v => - match - t1 as t2 return (base.base_interp t2 -> option Z) - with - | base.type.unit => fun _ : unit => None - | base.type.Z => fun v0 : Z => Some v0 - | base.type.bool => fun _ : bool => None - | base.type.nat => fun _ : nat => None - end v - | _ => None - end - with - | Some args0 => - if args =? 2 ^ Z.log2 args - then - UnderLets.Base - (#(ident.fancy_rshi (Z.log2 args) args0)%expr @ - (x0, x1))%expr_pat - else - UnderLets.Base - (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat - | None => - UnderLets.Base - (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | _ => - UnderLets.Base - (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | None => - UnderLets.Base (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end - | _ => UnderLets.Base (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat - end + (match x with + | @expr.Ident _ _ _ t idc => + args <- pattern.ident.invert_bind_args idc pattern.ident.LiteralZ; + match x2 with + | @expr.Ident _ _ _ t0 idc0 => + args0 <- pattern.ident.invert_bind_args idc0 + pattern.ident.LiteralZ; + (if args =? 2 ^ Z.log2 args + then + Some + (UnderLets.Base + (#(ident.fancy_rshi (Z.log2 args) args0)%expr @ (x0, x1))%expr_pat) + else None) + | _ => None + end + | _ => None + end;;; + UnderLets.Base (#(ident.Z_rshi)%expr @ x @ x0 @ x1 @ x2)%expr_pat)%option | ident.Z_cc_m => fun x x0 : defaults.expr (type.base base.type.Z) => UnderLets.Base (#(ident.Z_cc_m)%expr @ x @ x0)%expr_pat @@ -34881,4 +2340,4 @@ match idc in (ident t) return (Compile.value' true t) with (type.base (base.type.Z * base.type.Z * base.type.Z)%etype) => UnderLets.Base (#(ident.fancy_addm)%expr @ x)%expr_pat end - : Compile.value' true t + : value' true t |