lean2/tests/lean/elab6.lean

3 lines
122 B
Text
Raw Normal View History

Theorem ForallIntro2 (A : Type U) (P : A -> Bool) (H : Pi x, P x) : forall x, P x :=
Abst (fun x, EqTIntro (H x))