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

full_subgroup

Browse source
This commit is contained in:
Ulrik Buchholtz 2016-09-08 15:02:28 -04:00
parent af0b342de8
commit aeec8cae85
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
algebra/group_basics.hlean
View file

@ -34,13 +34,13 @@ namespace group
definition is_trivial_subgroup (G : Group) (R : subgroup_rel G) : Prop := sorry /- Π g, R g = trivial_subgroup g -/
definition full_subgroup.{u} (G : Group.{u}) : subgroup_rel.{u u} G :=
definition full_subgroup.{u} (G : Group.{u}) : subgroup_rel.{u 0} G :=
begin
fapply subgroup_rel.mk,
{ intro g, fapply trunctype.mk, exact g = g, exact _}, -- instead of the unit type, we take g = g, because the unit type is in Type₀ and not in Type.{u}
{ esimp },
{ intros g h p q, esimp },
{ intros g p, esimp }
{ intro g, fapply trunctype.mk, exact unit, exact _}, -- instead of the unit type, we take g = g, because the unit type is in Type₀ and not in Type.{u}
{ esimp, constructor },
{ intros g h p q, esimp, constructor },
{ intros g p, esimp, constructor }
end
definition is_full_subgroup (G : Group) (R : subgroup_rel G) : Prop := sorry /- Π g, R g -/