blob: 7cf51fb17114f59b40971b05f80af846530d5ea3 [file] [edit]
set_option trace.Compiler.result true
def Iff.elim1.{u} {a b : Prop} {motive : Sort u} (t : a ↔ b) (h : (mp : a → b) → (mpr : b → a) → motive) : motive :=
match t with | ⟨hab, hba⟩ => h hab hba
def Iff.elim2.{u} {a b : Prop} {motive : Sort u} (t : a ↔ b) (h : (mp : a → b) → (mpr : b → a) → motive) : motive :=
Iff.casesOn (motive:= fun _ : a ↔ b => motive) t h