@[extern c inline "lean_fixpoint4(#7, #8, #9, #10, #11)"]
def
fixCore4
{α₁ : Type u}
{α₂ : Type u}
{α₃ : Type u}
{α₄ : Type u}
{β : Type u}
(base : α₁ → α₂ → α₃ → α₄ → β)
(rec : (α₁ → α₂ → α₃ → α₄ → β) → α₁ → α₂ → α₃ → α₄ → β)
:
α₁ → α₂ → α₃ → α₄ → β
Equations
- fixCore4 base rec = bfix4 base rec USize.size
@[extern c inline "lean_fixpoint5(#8, #9, #10, #11, #12, #13)"]
def
fixCore5
{α₁ : Type u}
{α₂ : Type u}
{α₃ : Type u}
{α₄ : Type u}
{α₅ : Type u}
{β : Type u}
(base : α₁ → α₂ → α₃ → α₄ → α₅ → β)
(rec : (α₁ → α₂ → α₃ → α₄ → α₅ → β) → α₁ → α₂ → α₃ → α₄ → α₅ → β)
:
α₁ → α₂ → α₃ → α₄ → α₅ → β
Equations
- fixCore5 base rec = bfix5 base rec USize.size
def
bfix6
{α₁ : Type u}
{α₂ : Type u}
{α₃ : Type u}
{α₄ : Type u}
{α₅ : Type u}
{α₆ : Type u}
{β : Type u}
(base : α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β)
(rec : (α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β) → α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β)
:
Nat → α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β
Equations
- bfix6 base rec 0 _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr = base _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr
- bfix6 base rec (Nat.succ n) _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr = rec (bfix6 base rec n) _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr _fun_discr
@[extern c inline "lean_fixpoint6(#9, #10, #11, #12, #13, #14, #15)"]
def
fixCore6
{α₁ : Type u}
{α₂ : Type u}
{α₃ : Type u}
{α₄ : Type u}
{α₅ : Type u}
{α₆ : Type u}
{β : Type u}
(base : α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β)
(rec : (α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β) → α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β)
:
α₁ → α₂ → α₃ → α₄ → α₅ → α₆ → β
Equations
- fixCore6 base rec = bfix6 base rec USize.size