chore(data/set): cleanup proofs to make them less dependent on unifier heuristics

This commit is contained in:
Leonardo de Moura 2016-03-09 18:46:23 -08:00
parent 5e14b4ebe8
commit 0c4a6d3c5e
2 changed files with 5 additions and 2 deletions

View file

@ -401,6 +401,7 @@ le.antisymm !bot_le
begin
apply le_of_forall_eventually,
intro P H,
unfold eventually,
apply mem_univ
end

View file

@ -121,8 +121,10 @@ inj_on_of_left_inv_on H
theorem left_inverse_comp {f' : map b a} {g' : map c b} {g : map b c} {f : map a b}
(Hf : map.left_inverse f' f) (Hg : map.left_inverse g' g) :
map.left_inverse (f' ∘ g') (g ∘ f) :=
left_inv_on_comp (mapsto f) Hf Hg
begin
unfold map.left_inverse,
exact left_inv_on_comp (mapsto f) Hf Hg
end
/- right inverse -/
-- g is a right inverse to f