# HG changeset patch
# User paulson
# Date 1033115627 -7200
# Node ID b6d1a29dc9789d39ffabe3899b060bf09e5ce5f4
# Parent  07b66a557487923fb5cb2c3279ece74210751e9b
New theory GroupTheory/Module.thy of modules

diff -r 07b66a557487 -r b6d1a29dc978 src/HOL/GroupTheory/Module.thy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/GroupTheory/Module.thy	Fri Sep 27 10:33:47 2002 +0200
@@ -0,0 +1,62 @@
+(*  Title:      HOL/GroupTheory/Module
+    ID:         $Id$
+    Author:     Lawrence C Paulson
+
+*)
+
+header{*Modules*}
+
+theory Module = Ring:
+
+text{*The record includes all the group components (carrier, sum, gminus,
+zero), adding the scalar product.*}
+record ('a,'b) module  = "'a group" + 
+  sprod :: "'b \<Rightarrow> 'a \<Rightarrow> 'a"   (infixl "\<star>\<index>" 70) 
+
+text{*The locale assumes all the properties of a ring and an Abelian group,
+adding laws relating them.*}
+locale module = ring R + abelian_group M +
+  assumes sprod_funcset: "sprod M \<in> carrier R \<rightarrow> carrier M \<rightarrow> carrier M"
+      and sprod_assoc:   
+            "[|r \<in> carrier R; s \<in> carrier R; a \<in> carrier M|] 
+             ==> (r \<cdot>\<^sub>1 s) \<star>\<^sub>2 a = r \<star>\<^sub>2 (s \<star>\<^sub>2 a)"
+      and sprod_distrib_left:
+            "[|r \<in> carrier R; a \<in> carrier M; b \<in> carrier M|] 
+             ==> r \<star>\<^sub>2 (a \<oplus>\<^sub>2 b) = (r \<star>\<^sub>2 a) \<oplus>\<^sub>2 (r \<star>\<^sub>2 b)"
+      and sprod_distrib_right:
+            "[|r \<in> carrier R; s \<in> carrier R; a \<in> carrier M|] 
+             ==> (r \<oplus>\<^sub>1 s) \<star>\<^sub>2 a = (r \<star>\<^sub>2 a) \<oplus>\<^sub>2 (s \<star>\<^sub>2 a)"
+
+lemma module_iff:
+     "module R M = (ring R & abelian_group M & module_axioms R M)"
+by (simp add: module_def ring_def abelian_group_def) 
+
+text{*The sum and product in @{text R} are @{text "r \<oplus>\<^sub>1 s"} and @{text
+"r \<cdot>\<^sub>1 s"}, respectively.  The sum in @{text M} is @{text "a \<oplus>\<^sub>2 b"}.*}
+
+
+text{*We have to write the ring product as @{text "\<cdot>\<^sub>2"}. But if we
+refer to the scalar product as @{text "\<cdot>\<^sub>1"} then syntactic ambiguities
+arise.  This presumably happens because the subscript merely determines which
+structure argument to insert, which happens after parsing.  Better to use a
+different symbol such as @{text "\<star>"}*}
+
+subsection {*Trivial Example: Every Ring is an R-Module Over Itself *}
+
+constdefs
+ triv_mod :: "('a,'b) ring_scheme => ('a,'a) module"
+  "triv_mod R == (|carrier = carrier R,
+                 sum = sum R,
+                 gminus = gminus R,
+                 zero = zero R, 
+                 sprod = prod R|)"
+
+theorem module_triv_mod: "ring R ==> module R (triv_mod R)"
+apply (simp add: triv_mod_def module_iff module_axioms_def
+                 ring_def ring_axioms_def abelian_group_def
+                 distrib_l_def distrib_r_def semigroup_def group_axioms_def)
+apply (simp add: abelian_group_axioms_def)
+  --{*Combining the two simplifications causes looping!*}
+done
+
+end
diff -r 07b66a557487 -r b6d1a29dc978 src/HOL/IsaMakefile
--- a/src/HOL/IsaMakefile	Thu Sep 26 15:21:38 2002 +0200
+++ b/src/HOL/IsaMakefile	Fri Sep 27 10:33:47 2002 +0200
@@ -281,7 +281,7 @@
   GroupTheory/Coset.thy \
   GroupTheory/Exponent.thy \
   GroupTheory/Group.thy \
-  GroupTheory/Ring.thy \
+  GroupTheory/Module.thy GroupTheory/Ring.thy \
   GroupTheory/Sylow.thy \
   GroupTheory/ROOT.ML \
   GroupTheory/document/root.tex