Quelle  UnitGroup.thy

section \open>he Unit 0

theory "UnitGroup"
imports
   "HOL-Alg.Group"
   GeneratorsHOLp"
begin

text \open ?caseby auto

definition unit_group :: "unit monoid"
where
  "unit_group ≡
      = UNIV 
     mult x y. ( case(uc)
     one = ()
  )

theorem unit_group_is_group = UNIV,
  by ( groupI simp:unit_group_def

theoremone =(
  assumes "card (carrier G) = 1"
  shows "<h <> iso G uni_rup"
proof-
  from assmssectionTheUnit Group<close
  hence "( "UnitGroup
-(rule ,auto dunit_group_is_group simpgroup_def
  thus ?thesis
qed

end