lean4-htt/tests/lean/run/753.lean
2021-12-12 07:52:52 -08:00

8 lines
182 B
Text

inductive Val
| mk : Nat -> Val
instance : Inhabited Val where
default := Val.mk 0
@[simp]
theorem true_iff_true : True <-> True := Iff.intro (fun _ => trivial) (fun _ => trivial)