31 lines
785 B
Text
31 lines
785 B
Text
inductive List (T : Type) : Type := nil {} : List T | cons : T → List T → List T
|
|
|
|
namespace explicit
|
|
|
|
inductive ftree.{l₁ l₂} (A : Type.{l₁}) (B : Type.{l₂}) : Type.{max 1 l₁ l₂} :=
|
|
leafa : A → ftree A B |
|
|
leafb : B → ftree A B |
|
|
node : (A → ftree A B) → (B → ftree A B) → ftree A B
|
|
|
|
end explicit
|
|
|
|
namespace implicit
|
|
|
|
inductive ftree (A : Type) (B : Type) : Type :=
|
|
leafa : ftree A B |
|
|
node : (A → B → ftree A B) → (B → ftree A B) → ftree A B
|
|
|
|
set_option pp.universes true
|
|
check ftree
|
|
end implicit
|
|
|
|
|
|
namespace implicit2
|
|
|
|
inductive ftree (A : Type) (B : Type) : Type :=
|
|
leafa : A → ftree A B |
|
|
leafb : B → ftree A B |
|
|
node : (List A → ftree A B) → (B → ftree A B) → ftree A B
|
|
set_option pp.universes true
|
|
check ftree
|
|
end implicit2
|