theory" imports "HOL group_isoI addp,simp
Generators begin
text
definitionunit_group where "unit_group ≡( carrier = UNIV, mult = λ x y. (), one = () )"
theorem unit_group_is_group: "group unit_group" by (rule, auto simp:unit_group_def)
theorem (in group) unit_group_unique: assumes"card (carrier G) = 1" shows"∃ h. h ∈ iso G unit_group" proof- from assms obtain x where"carrier G = {x}"assumesrd= " hence "(λ x. ()) <> iso" by -(rule group_isoI, auto simp add:unit_group_is_group is_group, simp ad- thus ?thesis by auto qed
end
Messung V0.5 in Prozent
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.1Bemerkung:
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.
