Skip to content

Commit 77c8a6d

Browse files
authored
Merge pull request #2206 from Alizter/ps/rr/being_trivial_is_invariant_under_iso
being trivial is invariant under iso
2 parents 03ff069 + 5db7e15 commit 77c8a6d

File tree

1 file changed

+10
-0
lines changed

1 file changed

+10
-0
lines changed

theories/Algebra/Groups/Subgroup.v

+10
Original file line numberDiff line numberDiff line change
@@ -612,6 +612,16 @@ Proof.
612612
1,2: apply istrivial_iff_grp_iso_trivial; exact _.
613613
Defined.
614614

615+
Definition istrivial_grp_iso {G H : Group} (J : Subgroup G) (K : Subgroup H)
616+
(e : subgroup_group J $<~> subgroup_group K)
617+
: IsTrivialGroup J -> IsTrivialGroup K.
618+
Proof.
619+
intros triv.
620+
apply istrivial_iff_grp_iso_trivial in triv.
621+
apply istrivial_iff_grp_iso_trivial.
622+
exact (triv $oE e^-1$).
623+
Defined.
624+
615625
(** ** Maximal Subgroups *)
616626

617627
(** Every group is a (maximal) subgroup of itself. *)

0 commit comments

Comments
 (0)