2014-02-03 20:10:26 -08:00
|
|
|
|
check sig x : Nat, x > 0
|
2014-02-03 20:46:15 -08:00
|
|
|
|
check tuple 10, 20
|
|
|
|
|
|
check tuple 10, true
|
|
|
|
|
|
check tuple true, 20
|
2014-02-04 11:37:08 -08:00
|
|
|
|
check tuple Bool # Nat : true, 20
|
2014-02-03 20:46:15 -08:00
|
|
|
|
check tuple true, true
|
|
|
|
|
|
check tuple Bool ⨯ Bool : true, true
|
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-03 20:46:15 -08:00
|
|
|
|
check tuple NZ : a, Ha
|
|
|
|
|
|
check tuple Nat # Nat : true, 20
|
|
|
|
|
|
check tuple Bool # Bool : true, 20
|
