feat(tests/lean/run/tut_104): add extra test

This commit is contained in:
Leonardo de Moura 2015-05-14 18:34:48 -07:00
parent 84faef5d5d
commit d4da381e1a

View file

@ -37,6 +37,14 @@ lemma injective_eq_inj_on_univ₃ (f : A → B) : injective f = inj_on f univ :=
repeat (apply forall_congr; intros),
rewrite *(propext !true_imp)
end
lemma injective_eq_inj_on_univ₄ (f : A → B) : injective f = inj_on f univ :=
begin
esimp [injective, inj_on, univ, mem],
apply propext,
repeat (apply forall_congr; intros),
rewrite *true_imp
end
end
end function