src/HOL/Algebra/UnivPoly.thy
changeset 14963 d584e32f7d46
parent 14706 71590b7733b7
child 15045 d59f7e2e18d3
     1.1 --- a/src/HOL/Algebra/UnivPoly.thy	Thu Jun 17 14:27:01 2004 +0200
     1.2 +++ b/src/HOL/Algebra/UnivPoly.thy	Thu Jun 17 17:18:30 2004 +0200
     1.3 @@ -402,11 +402,6 @@
     1.4      UP_cring)
     1.5  (* TODO: provide cring.is_monoid *)
     1.6  
     1.7 -lemma (in UP_cring) UP_comm_semigroup:
     1.8 -  "comm_semigroup P"
     1.9 -  by (fast intro!: cring.is_comm_monoid comm_monoid.axioms comm_semigroup.intro
    1.10 -    UP_cring)
    1.11 -
    1.12  lemma (in UP_cring) UP_comm_monoid:
    1.13    "comm_monoid P"
    1.14    by (fast intro!: cring.is_comm_monoid UP_cring)
    1.15 @@ -441,7 +436,7 @@
    1.16    monoid.nat_pow_pow [OF UP_monoid]
    1.17  
    1.18  lemmas (in UP_cring) UP_m_lcomm =
    1.19 -  comm_semigroup.m_lcomm [OF UP_comm_semigroup]
    1.20 +  comm_monoid.m_lcomm [OF UP_comm_monoid]
    1.21  
    1.22  lemmas (in UP_cring) UP_m_ac = UP_m_assoc UP_m_comm UP_m_lcomm
    1.23