14 lines
345 B
Text
14 lines
345 B
Text
check sig x : Nat, x > 0
|
||
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
|
||
variable a : Nat
|
||
axiom Ha : 1 ≤ a
|
||
definition NZ : Type := sig x : Nat, 1 ≤ x
|
||
check NZ
|
||
check pair a Ha : NZ
|
||
check pair true 20 : Nat # Nat
|
||
check pair true 20 : Bool # Bool
|