lean4-htt/tests/lean/run/decClassical.lean
Leonardo de Moura 1d9d8c7e75 chore: fix tests
close #402
2021-08-07 13:22:58 -07:00

12 lines
310 B
Text

open Classical
theorem ex : if (fun x => x + 1) = (fun x => x + 2) then False else True := by
have : (fun x => x + 1) ≠ (fun x => x + 2) := by
intro h
have : 1 = 2 := congrFun h 0
contradiction
rw [if_neg this]
exact True.intro
def tst (x : Nat) : Bool :=
if 1 < 2 then true else false