15 lines
583 B
Text
15 lines
583 B
Text
-- These definitions can be processed by the new equation compiler without producing errors.
|
|
universe variables u
|
|
definition f1 : nat → nat → nat
|
|
| a .(a) := a
|
|
|
|
definition f2 : ∀ (a b c : nat), a = c → c = a
|
|
| a b .(b) rfl := rfl
|
|
|
|
inductive vec (A : Type u) : nat → Type (max 1 u)
|
|
| nil {} : vec 0
|
|
| cons : Π {n}, A → vec n → vec (n+1)
|
|
|
|
definition foo (A : Type u) (f : A → A → A) : Π {n}, vec A n → vec A n → vec A n
|
|
| ._ vec.nil vec.nil := vec.nil
|
|
| ._ (vec.cons a₁ l₁) (vec.cons a₂ l₂) := vec.cons (f a₁ a₂) (foo l₁ l₂)
|