We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 03ff069 + 5db7e15 commit 77c8a6dCopy full SHA for 77c8a6d
theories/Algebra/Groups/Subgroup.v
@@ -612,6 +612,16 @@ Proof.
612
1,2: apply istrivial_iff_grp_iso_trivial; exact _.
613
Defined.
614
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
+
625
(** ** Maximal Subgroups *)
626
627
(** Every group is a (maximal) subgroup of itself. *)
0 commit comments