lean4-htt/old_tests/tests/lean/run/1772.lean
2018-04-10 12:56:55 -07:00

8 lines
294 B
Text

example (p : Prop) (f : ∀ q : Prop, q → q) : p = p :=
by apply f _ _; refl
example (p : Prop) (f : ∀ q : Prop, q → q) : p = p :=
by apply f _ _; transitivity; refl
example (p r : Prop) (f : ∀ q : Prop, (r = q → q) → q) (h2 : r): p :=
by apply f _ (λ h, _); subst h; assumption