2013-09-01 10:34:57 -07:00
|
|
|
Set pp::colors false
|
2013-08-18 15:03:58 -07: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
|
