michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/hott) add calc environment for equivalences

Browse source
This commit is contained in:
Jakob von Raumer 2014-11-06 11:20:01 -05:00 • committed by Leonardo de Moura
parent c50db9899d
commit 8e1949e9aa
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
library/hott/equiv.lean
View file

@ -282,6 +282,13 @@ namespace Equiv
theorem contr_closed (HA: Contr A) : (Contr B) := theorem contr_closed (HA: Contr A) : (Contr B) :=
@IsEquiv.contr A B (equiv_fun eqf) (equiv_isequiv eqf) HA @IsEquiv.contr A B (equiv_fun eqf) (equiv_isequiv eqf) HA
-- calc enviroment
-- TODO: find a transport lemma?
-- calc_subst transport
calc_trans compose
calc_refl id
calc_symm inv_closed
end Equiv end Equiv
namespace Equiv namespace Equiv