lean2/tests/lean/tst12.lean

17 lines
585 B
Text
Raw Normal View History

Set pp::colors false
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