lean4-htt/tests/lean/run/decClassical.lean
2021-05-20 15:17:36 -07:00

12 lines
309 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 [ifNeg this]
exact True.intro
def tst (x : Nat) : Bool :=
if 1 < 2 then true else false