Section Premier.
Variable H : Ensemble U.
Variable witness : U.
Variable inhabited : In U H witness.
Variable subset : Included U H G.
Variable hstar : endo_operation U H star.
Variable hinv : endo_function U H inv.
Hint Resolve inhabited subset hstar hinv.
Let assoc : associative U star.
Hint Resolve assoc.
Let eH : U := star (inv witness) witness.
Let eH_in_H : In U H eH.
Let eH_left_neutral : left_neutral U star eH.
Let eH_right_neutral : right_neutral U star eH.
Let inv_left_inverse : left_inverse U star inv eH.
Let inv_right_inverse : right_inverse U star inv eH.
Let GrH : Group U :=
group U H star inv eH hstar assoc eH_in_H eH_left_neutral eH_right_neutral
hinv inv_right_inverse inv_left_inverse.
Hint Resolve Definition_of_subgroup.

Theorem T_1_6_2 : Setsubgroup U H Gr.
End Premier.