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

simplifty the trivial subgroup

Browse source
This commit is contained in:
Egbert Rijke 2016-12-01 15:43:05 -05:00
parent de641aac71
commit d3cba4b95d
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
algebra/subgroup.hlean
View file

@ -34,11 +34,8 @@ namespace group
{ intros g p, esimp at *, rewrite p, exact one_inv } { intros g p, esimp at *, rewrite p, exact one_inv }
end end
definition is_trivial_subgroup (G : Group) (R : subgroup_rel G) : Prop := definition is_trivial_subgroup (G : Group) (R : subgroup_rel G) : Type :=
trunctype.mk (Π g : G, R g ↔ trivial_subgroup G g) (Π g : G, R g → g = 1)
begin
apply pi.is_trunc_pi, intro g, apply is_trunc_prod
end
definition full_subgroup.{u} (G : Group.{u}) : subgroup_rel.{u 0} G := definition full_subgroup.{u} (G : Group.{u}) : subgroup_rel.{u 0} G :=
begin begin