2014-02-03 20:10:26 -08:00
|
|
|
|
check sig x : Nat, x > 0
|
2014-02-10 09:03:42 -08: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-03 20:10:26 -08:00
|
|
|
|
variable a : Nat
|
|
|
|
|
|
axiom Ha : 1 ≤ a
|
|
|
|
|
|
definition NZ : Type := sig x : Nat, 1 ≤ x
|
|
|
|
|
|
check NZ
|
2014-02-10 09:03:42 -08:00
|
|
|
|
check pair a Ha : NZ
|
|
|
|
|
|
check pair true 20 : Nat # Nat
|
|
|
|
|
|
check pair true 20 : Bool # Bool
|
