2014-02-04 04:10:26 +00:00
|
|
|
|
check sig x : Nat, x > 0
|
2014-02-10 17:03:42 +00:00
|
|
|
|
check pair 10 20
|
|
|
|
|
|
check pair 10 true
|
|
|
|
|
|
check pair true 20
|
|
|
|
|
|
check pair true 20 : Bool # Nat
|
|
|
|
|
|
check pair true true
|
|
|
|
|
|
check pair true true : Bool ⨯ Bool
|
2014-02-04 04:10:26 +00:00
|
|
|
|
variable a : Nat
|
|
|
|
|
|
axiom Ha : 1 ≤ a
|
|
|
|
|
|
definition NZ : Type := sig x : Nat, 1 ≤ x
|
|
|
|
|
|
check NZ
|
2014-02-10 17:03:42 +00:00
|
|
|
|
check pair a Ha : NZ
|
|
|
|
|
|
check pair true 20 : Nat # Nat
|
|
|
|
|
|
check pair true 20 : Bool # Bool
|
