14 lines
365 B
Text
14 lines
365 B
Text
check sig x : Nat, x > 0
|
||
check tuple 10, 20
|
||
check tuple 10, true
|
||
check tuple true, 20
|
||
check tuple (Bool # Nat) : true, 20
|
||
check tuple true, true
|
||
check tuple Bool ⨯ Bool : true, true
|
||
variable a : Nat
|
||
axiom Ha : 1 ≤ a
|
||
definition NZ : Type := sig x : Nat, 1 ≤ x
|
||
check NZ
|
||
check tuple NZ : a, Ha
|
||
check tuple Nat # Nat : true, 20
|
||
check tuple Bool # Bool : true, 20
|