20 lines
358 B
Text
20 lines
358 B
Text
import logic
|
|
|
|
inductive Pair1 (A B : Type) :=
|
|
mk ( ) : A → B → Pair1 A B
|
|
|
|
check Pair1.mk
|
|
|
|
check Pair1.mk Prop Prop true false
|
|
|
|
inductive Pair2 {A : Type} (B : A → Type) :=
|
|
mk ( ) : Π (a : A), B a → Pair2 B
|
|
|
|
check @Pair2.mk
|
|
|
|
check Pair2.mk (λx, Prop) true false
|
|
|
|
inductive Pair3 (A B : Type) :=
|
|
mk : A → B → Pair3 A B
|
|
|
|
check Pair3.mk true false
|