src/HOL/Algebra/Group.thy

   Author: Clemens Ballarin, started 4 February 2003
 
 Based on work by Florian Kammueller, L C Paulson and Markus Wenzel.
 *)
 
-theory Group imports FuncSet Lattice begin
+theory Group
+imports Lattice FuncSet
+begin
 
 
 section {* Monoids and Groups *}
 
 subsection {* Definitions *}

     from x y show "\<exists>y \<in> carrier G. y \<otimes> x = \<one> & x \<otimes> y = \<one>"
       by (fast intro: l_inv r_inv)
   qed
   then have carrier_subset_Units: "carrier G <= Units G"
     by (unfold Units_def) fast
-  show ?thesis by unfold_locales (auto simp: r_one m_assoc carrier_subset_Units)
+  show ?thesis proof qed (auto simp: r_one m_assoc carrier_subset_Units)
 qed
 
 lemma (in monoid) group_l_invI:
   assumes l_inv_ex:
     "!!x. x \<in> carrier G ==> \<exists>y \<in> carrier G. y \<otimes> x = \<one>"

 
 lemma (in group) group_comm_groupI:
   assumes m_comm: "!!x y. [| x \<in> carrier G; y \<in> carrier G |] ==>
       x \<otimes> y = y \<otimes> x"
   shows "comm_group G"
-  by unfold_locales (simp_all add: m_comm)
+  proof qed (simp_all add: m_comm)
 
 lemma comm_groupI:
   fixes G (structure)
   assumes m_closed:
       "!!x y. [| x \<in> carrier G; y \<in> carrier G |] ==> x \<otimes> y \<in> carrier G"

 
 text_raw {* \label{sec:subgroup-lattice} *}
 
 theorem (in group) subgroups_partial_order:
   "partial_order (| carrier = {H. subgroup H G}, eq = op =, le = op \<subseteq> |)"
-  by unfold_locales simp_all
+  proof qed simp_all
 
 lemma (in group) subgroup_self:
   "subgroup (carrier G) G"
   by (rule subgroupI) auto