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

fix(hott/algebra/homomorphism): fix typos

Browse source
This commit is contained in:
Jeremy Avigad 2017-06-30 16:21:23 +01:00 committed by Floris van Doorn
parent 39a8c7fef4
commit 519dcee739
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
hott/algebra/homomorphism.hlean
View file

@ -103,7 +103,7 @@ section group_A_B
have f (a⁻¹) * f a = 1, by rewrite [-respect_mul f, mul.left_inv, respect_one f], have f (a⁻¹) * f a = 1, by rewrite [-respect_mul f, mul.left_inv, respect_one f],
eq_inv_of_mul_eq_one this eq_inv_of_mul_eq_one this
definition is_embedding_of_is_mul_hom [group B] (f : A → B) [is_mul_hom f] definition is_embedding_of_is_mul_hom (f : A → B) [is_mul_hom f]
(H : ∀ x, f x = 1 → x = 1) : (H : ∀ x, f x = 1 → x = 1) :
is_embedding f := is_embedding f :=
is_embedding_of_is_injective is_embedding_of_is_injective
@ -113,7 +113,7 @@ section group_A_B
have x₁ * x₂⁻¹ = 1, from H _ this, have x₁ * x₂⁻¹ = 1, from H _ this,
eq_of_mul_inv_eq_one this) eq_of_mul_inv_eq_one this)
definition eq_one_of_is_mul_hom [add_group B] {f : A → B} [is_mul_hom f] definition eq_one_of_is_mul_hom {f : A → B} [is_mul_hom f]
[is_embedding f] {a : A} (fa1 : f a = 1) : [is_embedding f] {a : A} (fa1 : f a = 1) :
a = 1 := a = 1 :=
have f a = f 1, by rewrite [fa1, respect_one f], have f a = f 1, by rewrite [fa1, respect_one f],