2014-01-05 19:03:35 +00:00
|
|
|
print (fun x : Bool, (fun y : Bool, x /\ y))
|
|
|
|
|
print let x := true,
|
2013-08-18 22:03:58 +00:00
|
|
|
y := true
|
|
|
|
|
in (let z := x /\ y,
|
|
|
|
|
f := (fun arg1 arg2 : Bool, arg1 /\ arg2 <=>
|
|
|
|
|
arg2 /\ arg1 <=>
|
|
|
|
|
arg1 \/ arg2 \/ arg2)
|
|
|
|
|
in (f x y) \/ z)
|
|
|
|
|
Eval let x := true,
|
|
|
|
|
y := true,
|
|
|
|
|
z := x /\ y,
|
|
|
|
|
f := (fun arg1 arg2 : Bool, arg1 /\ arg2 <=>
|
|
|
|
|
arg2 /\ arg1 <=>
|
|
|
|
|
arg1 \/ arg2 \/ arg2)
|
|
|
|
|
in (f x y) \/ z
|
