a2d2e36f04
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
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
|