Skip to content

Commit

Permalink
address review comments
Browse files Browse the repository at this point in the history
Signed-off-by: Ali Caglayan <alizter@gmail.com>
  • Loading branch information
Alizter committed Jan 4, 2025
1 parent b91d3d2 commit ad43e04
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions theories/Algebra/Groups/Subgroup.v
Original file line number Diff line number Diff line change
Expand Up @@ -496,17 +496,17 @@ Proof.
Defined.

(** The property of being the trivial group is useful. Note that any group can be automatically coerced to its maximal subgroup, so it makes sense for this predicate to be applied to groups in general. *)
Definition IsTrivialGroup@{i} {G : Group@{i}} (H : Subgroup@{i i} G) :=
forall x, H x -> trivial_subgroup G x.
Existing Class IsTrivialGroup.
Class IsTrivialGroup@{i} {G : Group@{i}} (H : Subgroup@{i i} G) :=
istrivialgroup : forall x, H x -> trivial_subgroup G x.

Global Instance istrivial_trivial_subgroup {G : Group}
: IsTrivialGroup (trivial_subgroup G)
:= fun x => idmap.

(** Trivial groups are isomorphic to the trivial group. *)
Definition istrivial_iff_grp_iso_trivial_subgroup {G : Group} (H : Subgroup G)
: IsTrivialGroup H <-> (H : Group) $<~> trivial_subgroup G.
: IsTrivialGroup H
<-> (subgroup_group H $<~> subgroup_group (trivial_subgroup G)).
Proof.
split.
- intros T.
Expand Down

0 comments on commit ad43e04

Please sign in to comment.