2013-09-01 17:34:57 +00:00
|
|
|
Set pp::colors false
|
2013-08-18 22:03:58 +00:00
|
|
|
Show (fun x : Bool, (fun y : Bool, x /\ y))
|
|
|
|
|
Show let x := true,
|
|
|
|
|
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
|
