feat(tests/lean/run/tut_104): add extra test
This commit is contained in:
parent
84faef5d5d
commit
d4da381e1a
1 changed files with 8 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue