print fun x : Bool, (fun x : Bool, x).
print let x := true,
         y := true
     in (let z := x /\ y,
             f := (fun x y : Bool, x /\ y <=>
                                   y /\ x <=>
                                   x \/ y \/ y)
         in (f x y) \/ z)