Theory MMI_Complex_ZF

theory MMI_Complex_ZF
imports MMI_logic_and_sets
(* 
    This file is a part of MMIsar - a translation of Metamath's set.mm to Isabelle 2005 (ZF logic).

    Copyright (C) 2006  Slawomir Kolodynski

    This program is free software; Redistribution and use in source and binary forms, 
    with or without modification, are permitted provided that the following conditions are met:

   1. Redistributions of source code must retain the above copyright notice, 
   this list of conditions and the following disclaimer.
   2. Redistributions in binary form must reproduce the above copyright notice, 
   this list of conditions and the following disclaimer in the documentation and/or 
   other materials provided with the distribution.
   3. The name of the author may not be used to endorse or promote products 
   derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

*)

header {*\isaheader{MMI\_Complex\_ZF.thy}*}

theory MMI_Complex_ZF imports MMI_logic_and_sets

begin 

text{*This theory contains theorems (with proofs) about complex numbers
  imported from the Metamath's set.mm database. 
  The original Metamath proofs were mostly written by Norman Megill, 
  see the Metamath Proof Explorer pages for full atribution.
  This theory contains about 200 theorems from "recnt" to "div11t".
*}

  lemma (in MMIsar0) MMI_recnt: 
   shows "A ∈ \<real> --> A ∈ \<complex>"
proof -
   have S1: "\<real> ⊆ \<complex>" by (rule MMI_axresscn)
   from S1 show "A ∈ \<real> --> A ∈ \<complex>" by (rule MMI_sseli)
qed

lemma (in MMIsar0) MMI_recn: assumes A1: "A ∈ \<real>"   
   shows "A ∈ \<complex>"
proof -
   have S1: "\<real> ⊆ \<complex>" by (rule MMI_axresscn)
   from A1 have S2: "A ∈ \<real>".
   from S1 S2 show "A ∈ \<complex>" by (rule MMI_sselii)
qed

lemma (in MMIsar0) MMI_recnd: assumes A1: "φ --> A ∈ \<real>"   
   shows "φ --> A ∈ \<complex>"
proof -
   from A1 have S1: "φ --> A ∈ \<real>".
   have S2: "A ∈ \<real> --> A ∈ \<complex>" by (rule MMI_recnt)
   from S1 S2 show "φ --> A ∈ \<complex>" by (rule MMI_syl)
qed

lemma (in MMIsar0) MMI_elimne0: 
   shows "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>";
proof -
   have S1: "A = if ( A ≠ \<zero> , A , \<one> ) --> 
     ( A ≠ \<zero> <-> if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "\<one> = if ( A ≠ \<zero> , A , \<one> ) --> 
     ( \<one> ≠ \<zero> <-> if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S3: "\<one> ≠ \<zero>" by (rule MMI_ax1ne0)
   from S1 S2 S3 show "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimhyp)
qed

lemma (in MMIsar0) MMI_addex: 
   shows "\<caddset> isASet"
proof -
   have S1: "\<complex> isASet" by (rule MMI_axcnex)
   have S2: "\<complex> isASet" by (rule MMI_axcnex)
   from S1 S2 have S3: "( \<complex> × \<complex> ) isASet" by (rule MMI_xpex)
   have S4: "\<caddset> : ( \<complex> × \<complex> ) -> \<complex>" by (rule MMI_axaddopr)
   have S5: "( \<complex> × \<complex> ) isASet --> 
     ( \<caddset> : ( \<complex> × \<complex> ) -> \<complex> --> \<caddset> isASet )" by (rule MMI_fex)
   from S3 S4 S5 show "\<caddset> isASet" by (rule MMI_mp2)
qed;

lemma (in MMIsar0) MMI_mulex: 
   shows "\<cmulset> isASet"
proof -
   have S1: "\<complex> isASet" by (rule MMI_axcnex)
   have S2: "\<complex> isASet" by (rule MMI_axcnex)
   from S1 S2 have S3: "( \<complex> × \<complex> ) isASet" by (rule MMI_xpex)
   have S4: "\<cmulset> : ( \<complex> × \<complex> ) -> \<complex>" by (rule MMI_axmulopr)
   have S5: "( \<complex> × \<complex> ) isASet --> 
     ( \<cmulset> : ( \<complex> × \<complex> ) -> \<complex> --> \<cmulset> isASet )" by (rule MMI_fex)
   from S3 S4 S5 show "\<cmulset> isASet" by (rule MMI_mp2)
qed;

lemma (in MMIsar0) MMI_adddirt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
  ( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )"
proof -
   have S1: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( C · ( A \<ca> B ) ) = ( ( C · A ) \<ca> ( C · B ) )" 
     by (rule MMI_axdistr)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( C · ( A \<ca> B ) ) = ( ( C · A ) \<ca> ( C · B ) )" by (rule MMI_3coml)
   have S3: "( ( A \<ca> B ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( C · ( A \<ca> B ) )" by (rule MMI_axmulcom)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S3 S4 have S5: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( C · ( A \<ca> B ) )" by (rule MMI_sylan)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( C · ( A \<ca> B ) )" by (rule MMI_3impa)
   have S7: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) = ( C · A )" 
     by (rule MMI_axmulcom)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) = ( C · A )" 
     by (rule MMI_3adant2)
   have S9: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" 
     by (rule MMI_axmulcom)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" 
     by (rule MMI_3adant1)
   from S8 S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · C ) \<ca> ( B · C ) ) = ( ( C · A ) \<ca> ( C · B ) )" 
     by (rule MMI_opreq12d)
   from S2 S6 S11 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )" 
     by (rule MMI_3eqtr4d)
qed;

lemma (in MMIsar0) MMI_addcl: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<ca> B ) ∈ \<complex>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S1 S2 S3 show "( A \<ca> B ) ∈ \<complex>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_mulcl: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A · B ) ∈ \<complex>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S1 S2 S3 show "( A · B ) ∈ \<complex>" by (rule MMI_mp2an)
qed;

lemma (in MMIsar0) MMI_addcom: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<ca> B ) = ( B \<ca> A )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) = ( B \<ca> A )" 
     by (rule MMI_axaddcom)
   from S1 S2 S3 show "( A \<ca> B ) = ( B \<ca> A )" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_mulcom: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A · B ) = ( B · A )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) = ( B · A )" 
     by (rule MMI_axmulcom)
   from S1 S2 S3 show "( A · B ) = ( B · A )" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_addass: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<ca> C ) = ( A \<ca> ( B \<ca> C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
     ( A \<ca> ( B \<ca> C ) )" by (rule MMI_axaddass)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) \<ca> C ) = 
     ( A \<ca> ( B \<ca> C ) )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_mulass: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A · B ) · C ) = ( A · ( B · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A · B ) · C ) = 
     ( A · ( B · C ) )" by (rule MMI_axmulass)
   from S1 S2 S3 S4 show "( ( A · B ) · C ) = ( A · ( B · C ) )" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_adddi: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A · ( B \<ca> C ) ) = ( ( A · B ) \<ca> ( A · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · ( B \<ca> C ) ) = 
     ( ( A · B ) \<ca> ( A · C ) )" by (rule MMI_axdistr)
   from S1 S2 S3 S4 show "( A · ( B \<ca> C ) ) = 
     ( ( A · B ) \<ca> ( A · C ) )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_adddir: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) · C ) = 
     ( ( A · C ) \<ca> ( B · C ) )" by (rule MMI_adddirt)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) · C ) = 
     ( ( A · C ) \<ca> ( B · C ) )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_1cn: 
   shows "\<one> ∈ \<complex>"
proof -
   have S1: "\<one> ∈ \<real>" by (rule MMI_ax1re)
   from S1 show "\<one> ∈ \<complex>" by (rule MMI_recn)
qed

lemma (in MMIsar0) MMI_0cn: 
   shows "\<zero> ∈ \<complex>"
proof -
   have S1: "( ( \<i> · \<i> ) \<ca> \<one> ) = \<zero>" by (rule MMI_axi2m1)
   have S2: "\<i> ∈ \<complex>" by (rule MMI_axicn)
   have S3: "\<i> ∈ \<complex>" by (rule MMI_axicn)
   from S2 S3 have S4: "( \<i> · \<i> ) ∈ \<complex>" by (rule MMI_mulcl)
   have S5: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S4 S5 have S6: "( ( \<i> · \<i> ) \<ca> \<one> ) ∈ \<complex>" by (rule MMI_addcl)
   from S1 S6 show "\<zero> ∈ \<complex>" by (rule MMI_eqeltrr)
qed

lemma (in MMIsar0) MMI_addid1: assumes A1: "A ∈ \<complex>"   
   shows "( A \<ca> \<zero> ) = A"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( A \<ca> \<zero> ) = A" by (rule MMI_ax0id)
   from S1 S2 show "( A \<ca> \<zero> ) = A" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_addid2: assumes A1: "A ∈ \<complex>"   
   shows "( \<zero> \<ca> A ) = A"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( \<zero> \<ca> A ) = ( A \<ca> \<zero> )" by (rule MMI_addcom)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( A \<ca> \<zero> ) = A" by (rule MMI_addid1)
   from S3 S5 show "( \<zero> \<ca> A ) = A" by (rule MMI_eqtr)
qed;

(*-----------------------------------------------------------------*)


lemma (in MMIsar0) MMI_mulid1: assumes A1: "A ∈ \<complex>"   
   shows "( A · \<one> ) = A"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( A · \<one> ) = A" by (rule MMI_ax1id)
   from S1 S2 show "( A · \<one> ) = A" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_mulid2: assumes A1: "A ∈ \<complex>"   
   shows "( \<one> · A ) = A"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( \<one> · A ) = ( A · \<one> )" by (rule MMI_mulcom)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( A · \<one> ) = A" by (rule MMI_mulid1)
   from S3 S5 show "( \<one> · A ) = A" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_negex: assumes A1: "A ∈ \<complex>"   
   shows "∃ x ∈ \<complex> . ( A \<ca> x ) = \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( ∃ x ∈ \<complex> . ( A \<ca> x ) = \<zero> )" by (rule MMI_axnegex)
   from S1 S2 show "∃ x ∈ \<complex> . ( A \<ca> x ) = \<zero>" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_recex: assumes A1: "A ∈ \<complex>" and
    A2: "A ≠ \<zero>"   
   shows "∃ x ∈ \<complex> . ( A · x ) = \<one>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "A ≠ \<zero>".
   have S3: "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( ∃ x ∈ \<complex> . ( A · x ) = \<one> )" 
     by (rule MMI_axrecex)
   from S1 S2 S3 show "∃ x ∈ \<complex> . ( A · x ) = \<one>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_readdcl: assumes A1: "A ∈ \<real>" and
    A2: "B ∈ \<real>"   
   shows "( A \<ca> B ) ∈ \<real>"
proof -
   from A1 have S1: "A ∈ \<real>".
   from A2 have S2: "B ∈ \<real>".
   have S3: "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<ca> B ) ∈ \<real>" by (rule MMI_axaddrcl);
   from S1 S2 S3 show "( A \<ca> B ) ∈ \<real>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_remulcl: assumes A1: "A ∈ \<real>" and
    A2: "B ∈ \<real>"   
   shows "( A · B ) ∈ \<real>"
proof -
   from A1 have S1: "A ∈ \<real>".
   from A2 have S2: "B ∈ \<real>".
   have S3: "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A · B ) ∈ \<real>" by (rule MMI_axmulrcl)
   from S1 S2 S3 show "( A · B ) ∈ \<real>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_addcan: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<ca> B ) = ( A \<ca> C ) <-> B = C"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from S1 have S2: "∃ x ∈ \<complex> . ( A \<ca> x ) = \<zero>" by (rule MMI_negex)
   from A1 have S3: "A ∈ \<complex>".
   from A2 have S4: "B ∈ \<complex>".
   { fix x
     have S5: "( x ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( x \<ca> A ) \<ca> B ) = 
       ( x \<ca> ( A \<ca> B ) )" by (rule MMI_axaddass)
     from S4 S5 have S6: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> ( ( x \<ca> A ) \<ca> B ) = 
       ( x \<ca> ( A \<ca> B ) )" by (rule MMI_mp3an3)
     from A3 have S7: "C ∈ \<complex>".
     have S8: "( x ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( x \<ca> A ) \<ca> C ) = 
       ( x \<ca> ( A \<ca> C ) )" by (rule MMI_axaddass)
     from S7 S8 have S9: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> ( ( x \<ca> A ) \<ca> C ) = 
       ( x \<ca> ( A \<ca> C ) )" by (rule MMI_mp3an3)
     from S6 S9 have S10: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> 
       ( ( ( x \<ca> A ) \<ca> B ) = ( ( x \<ca> A ) \<ca> C ) <-> 
       ( x \<ca> ( A \<ca> B ) ) = ( x \<ca> ( A \<ca> C ) ) )" 
       by (rule MMI_eqeq12d)
     from S3 S10 have S11: "x ∈ \<complex> --> ( ( ( x \<ca> A ) \<ca> B ) = 
       ( ( x \<ca> A ) \<ca> C ) <-> ( x \<ca> ( A \<ca> B ) ) = 
       ( x \<ca> ( A \<ca> C ) ) )" by (rule MMI_mpan2)
     have S12: "( A \<ca> B ) = ( A \<ca> C ) --> ( x \<ca> ( A \<ca> B ) ) = 
       ( x \<ca> ( A \<ca> C ) )" by (rule MMI_opreq2)
     from S11 S12 have S13: "x ∈ \<complex> --> ( ( A \<ca> B ) = ( A \<ca> C ) --> 
       ( ( x \<ca> A ) \<ca> B ) = ( ( x \<ca> A ) \<ca> C ) )" 
       by (rule MMI_syl5bir)
     from S13 have S14: "( x ∈ \<complex> ∧ ( A \<ca> x ) = \<zero> ) --> ( ( A \<ca> B ) = 
       ( A \<ca> C ) --> ( ( x \<ca> A ) \<ca> B ) = 
       ( ( x \<ca> A ) \<ca> C ) )" by (rule MMI_adantr)
     from A1 have S15: "A ∈ \<complex>".
     have S16: "( A ∈ \<complex> ∧ x ∈ \<complex> ) --> ( A \<ca> x ) = ( x \<ca> A )" 
       by (rule MMI_axaddcom)
     from S15 S16 have S17: "x ∈ \<complex> --> ( A \<ca> x ) = ( x \<ca> A )" 
       by (rule MMI_mpan)
     from S17 have S18: "x ∈ \<complex> --> ( ( A \<ca> x ) = \<zero> <-> 
       ( x \<ca> A ) = \<zero> )" by (rule MMI_eqeq1d)
     have S19: "( x \<ca> A ) = \<zero> --> ( ( x \<ca> A ) \<ca> B ) = 
       ( \<zero> \<ca> B )" by (rule MMI_opreq1)
     from A2 have S20: "B ∈ \<complex>".
     from S20 have S21: "( \<zero> \<ca> B ) = B" by (rule MMI_addid2)
     from S19 S21 have S22: "( x \<ca> A ) = \<zero> --> 
       ( ( x \<ca> A ) \<ca> B ) = B" by (rule MMI_syl6eq)
     have S23: "( x \<ca> A ) = \<zero> --> ( ( x \<ca> A ) \<ca> C ) = 
       ( \<zero> \<ca> C )" by (rule MMI_opreq1)
     from A3 have S24: "C ∈ \<complex>".
     from S24 have S25: "( \<zero> \<ca> C ) = C" by (rule MMI_addid2)
     from S23 S25 have S26: "( x \<ca> A ) = \<zero> --> 
       ( ( x \<ca> A ) \<ca> C ) = C" by (rule MMI_syl6eq)
     from S22 S26 have S27: "( x \<ca> A ) = \<zero> --> 
       ( ( ( x \<ca> A ) \<ca> B ) = ( ( x \<ca> A ) \<ca> C ) <-> B = C )" 
       by (rule MMI_eqeq12d)
     from S18 S27 have S28: "x ∈ \<complex> --> ( ( A \<ca> x ) = \<zero> --> 
       ( ( ( x \<ca> A ) \<ca> B ) = ( ( x \<ca> A ) \<ca> C ) <-> B = C ) )" 
       by (rule MMI_syl6bi)
     from S28 have S29: "( x ∈ \<complex> ∧ ( A \<ca> x ) = \<zero> ) --> 
       ( ( ( x \<ca> A ) \<ca> B ) = ( ( x \<ca> A ) \<ca> C ) <-> B = C )" 
       by (rule MMI_imp)
     from S14 S29 have S30: "( x ∈ \<complex> ∧ ( A \<ca> x ) = \<zero> ) --> 
       ( ( A \<ca> B ) = ( A \<ca> C ) --> B = C )" by (rule MMI_sylibd)
     from S30 have "x ∈ \<complex> --> ( ( A \<ca> x ) = \<zero> --> 
       ( ( A \<ca> B ) = ( A \<ca> C ) --> B = C ) )" by (rule MMI_ex)
   } then have S31: "∀ x. (x ∈ \<complex> --> ( ( A \<ca> x ) = \<zero> --> 
       ( ( A \<ca> B ) = ( A \<ca> C ) --> B = C ) ))" by auto;
   from S31 have S32: "( ∃ x ∈ \<complex> . ( A \<ca> x ) = \<zero> ) --> 
     ( ( A \<ca> B ) = ( A \<ca> C ) --> B = C )" by (rule MMI_r19_23aiv);
   from S2 S32 have S33: "( A \<ca> B ) = ( A \<ca> C ) --> B = C" 
     by (rule MMI_ax_mp)
   have S34: "B = C --> ( A \<ca> B ) = ( A \<ca> C )" by (rule MMI_opreq2)
   from S33 S34 show "( A \<ca> B ) = ( A \<ca> C ) <-> B = C" 
     by (rule MMI_impbi)
qed;

lemma (in MMIsar0) MMI_addcan2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<ca> C ) = ( B \<ca> C ) <-> A = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A3 have S2: "C ∈ \<complex>".
   from S1 S2 have S3: "( A \<ca> C ) = ( C \<ca> A )" by (rule MMI_addcom)
   from A2 have S4: "B ∈ \<complex>".
   from A3 have S5: "C ∈ \<complex>".
   from S4 S5 have S6: "( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_addcom)
   from S3 S6 have S7: "( A \<ca> C ) = ( B \<ca> C ) <-> 
     ( C \<ca> A ) = ( C \<ca> B )" by (rule MMI_eqeq12i)
   from A3 have S8: "C ∈ \<complex>".
   from A1 have S9: "A ∈ \<complex>".
   from A2 have S10: "B ∈ \<complex>".
   from S8 S9 S10 have S11: "( C \<ca> A ) = ( C \<ca> B ) <-> A = B" 
     by (rule MMI_addcan)
   from S7 S11 show "( A \<ca> C ) = ( B \<ca> C ) <-> A = B" by (rule MMI_bitr)
qed

lemma (in MMIsar0) MMI_addcant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
  ( ( A \<ca> B ) = ( A \<ca> C ) <-> B = C )"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<ca> B ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B )" by (rule MMI_opreq1)
   have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( A \<ca> C ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C )" by (rule MMI_opreq1)
   from S1 S2 have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( A \<ca> B ) = ( A \<ca> C ) <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) )" 
     by (rule MMI_eqeq12d)
   from S3 have S4: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( ( A \<ca> B ) = ( A \<ca> C ) <-> B = C ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) 
     <-> B = C ) )" by (rule MMI_bibi1d)
   have S5: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S5 have S6: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) 
     <-> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) )" by (rule MMI_eqeq1d)
   have S7: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( B = C <-> 
     if ( B ∈ \<complex> , B , \<zero> ) = C )" by (rule MMI_eqeq1)
   from S6 S7 have S8: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) <-> B = C ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) <-> if ( B ∈ \<complex> , B , \<zero> ) = C ) )" 
     by (rule MMI_bibi12d)
   have S9: "C = if ( C ∈ \<complex> , C , \<zero> ) --> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) )" 
     by (rule MMI_opreq2)
   from S9 have S10: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) )" 
     by (rule MMI_eqeq2d)
   have S11: "C = if ( C ∈ \<complex> , C , \<zero> ) --> ( if ( B ∈ \<complex> , B , \<zero> ) = C <-> 
     if ( B ∈ \<complex> , B , \<zero> ) = if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_eqeq2)
   from S10 S11 have S12: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> C ) <-> if ( B ∈ \<complex> , B , \<zero> ) = C ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) <-> 
     if ( B ∈ \<complex> , B , \<zero> ) = if ( C ∈ \<complex> , C , \<zero> ) ) )" by (rule MMI_bibi12d)
   have S13: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S13 have S14: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S15: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S15 have S16: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S17: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S17 have S18: "if ( C ∈ \<complex> , C , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S14 S16 S18 have S19: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) <-> 
     if ( B ∈ \<complex> , B , \<zero> ) = if ( C ∈ \<complex> , C , \<zero> )" by (rule MMI_addcan)
   from S4 S8 S12 S19 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) = ( A \<ca> C ) <-> B = C )" by (rule MMI_dedth3h)
qed

lemma (in MMIsar0) MMI_addcan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> C ) = ( B \<ca> C ) <-> 
  A = B )"
proof -
   have S1: "( C ∈ \<complex> ∧ A ∈ \<complex> ) --> ( C \<ca> A ) = ( A \<ca> C )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C \<ca> A ) = 
     ( A \<ca> C )" by (rule MMI_3adant3)
   have S3: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C \<ca> B ) = ( B \<ca> C )" 
     by (rule MMI_axaddcom)
   from S3 have S4: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C \<ca> B ) = 
     ( B \<ca> C )" by (rule MMI_3adant2)
   from S2 S4 have S5: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( C \<ca> A ) = ( C \<ca> B ) <-> ( A \<ca> C ) = ( B \<ca> C ) )" 
     by (rule MMI_eqeq12d)
   have S6: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( C \<ca> A ) = 
     ( C \<ca> B ) <-> A = B )" by (rule MMI_addcant)
   from S5 S6 have S7: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> C ) = 
     ( B \<ca> C ) <-> A = B )" by (rule MMI_bitr3d)
   from S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> C ) = 
     ( B \<ca> C ) <-> A = B )" by (rule MMI_3coml)
qed;

(************************ 20-30********************************)

lemma (in MMIsar0) MMI_add12t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( B \<ca> C ) ) = 
  ( B \<ca> ( A \<ca> C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) = ( B \<ca> A )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
     ( ( B \<ca> A ) \<ca> C )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( B \<ca> A ) \<ca> C )" 
     by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
     ( A \<ca> ( B \<ca> C ) )" by (rule MMI_axaddass)
   have S5: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( B \<ca> A ) \<ca> C ) = 
     ( B \<ca> ( A \<ca> C ) )" by (rule MMI_axaddass)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( B \<ca> A ) \<ca> C ) = ( B \<ca> ( A \<ca> C ) )" by (rule MMI_3com12)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( B \<ca> C ) ) = ( B \<ca> ( A \<ca> C ) )" 
     by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_add23t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
  ( ( A \<ca> C ) \<ca> B )"
proof -
   have S1: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<ca> C ) = ( C \<ca> B )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( B \<ca> C ) ) = 
     ( A \<ca> ( C \<ca> B ) )" by (rule MMI_opreq2d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( B \<ca> C ) ) = ( A \<ca> ( C \<ca> B ) )" 
     by (rule MMI_3adant1)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
     ( A \<ca> ( B \<ca> C ) )" by (rule MMI_axaddass)
   have S5: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> C ) \<ca> B ) = 
     ( A \<ca> ( C \<ca> B ) )" by (rule MMI_axaddass)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> C ) \<ca> B ) = ( A \<ca> ( C \<ca> B ) )" by (rule MMI_3com23)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )" 
     by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_add4t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
  ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )" by (rule MMI_add23t)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D )" by (rule MMI_opreq1d)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D )" by (rule MMI_3expa)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D )" by (rule MMI_adantrr)
   have S5: "( ( A \<ca> B ) ∈ \<complex> ∧ C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) )" by (rule MMI_axaddass)
   from S5 have S6: "( ( A \<ca> B ) ∈ \<complex> ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) )" by (rule MMI_3expb)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S6 S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<ca> D ) = 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) )" by (rule MMI_sylan)
   have S9: "( ( A \<ca> C ) ∈ \<complex> ∧ B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_axaddass)
   from S9 have S10: "( ( A \<ca> C ) ∈ \<complex> ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_3expb)
   have S11: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> C ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S10 S11 have S12: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_sylan)
   from S12 have S13: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<ca> D ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_an4s)
   from S4 S8 S13 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_add42t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
  ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )"
proof -
   have S1: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_add4t)
   have S2: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( B \<ca> D ) = 
     ( D \<ca> B )" by (rule MMI_axaddcom)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B \<ca> D ) = ( D \<ca> B )" by (rule MMI_ad2ant2l)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )" by (rule MMI_opreq2d)
   from S1 S4 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_add12: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<ca> ( B \<ca> C ) ) = ( B \<ca> ( A \<ca> C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( B \<ca> C ) ) = 
     ( B \<ca> ( A \<ca> C ) )" by (rule MMI_add12t)
   from S1 S2 S3 S4 show "( A \<ca> ( B \<ca> C ) ) = 
     ( B \<ca> ( A \<ca> C ) )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_add23: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )" by (rule MMI_add23t)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) \<ca> C ) = 
     ( ( A \<ca> C ) \<ca> B )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_add4: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "D ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
  ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "A ∈ \<complex> ∧ B ∈ \<complex>" by (rule MMI_pm3_2i)
   from A3 have S4: "C ∈ \<complex>".
   from A4 have S5: "D ∈ \<complex>".
   from S4 S5 have S6: "C ∈ \<complex> ∧ D ∈ \<complex>" by (rule MMI_pm3_2i)
   have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_add4t)
   from S3 S6 S7 show "( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_add42: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "D ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
  ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   from A4 have S4: "D ∈ \<complex>".
   from S1 S2 S3 S4 have S5: "( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( B \<ca> D ) )" by (rule MMI_add4)
   from A2 have S6: "B ∈ \<complex>".
   from A4 have S7: "D ∈ \<complex>".
   from S6 S7 have S8: "( B \<ca> D ) = ( D \<ca> B )" by (rule MMI_addcom)
   from S8 have S9: "( ( A \<ca> C ) \<ca> ( B \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )" by (rule MMI_opreq2i)
   from S5 S9 show "( ( A \<ca> B ) \<ca> ( C \<ca> D ) ) = 
     ( ( A \<ca> C ) \<ca> ( D \<ca> B ) )" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_addid2t: 
   shows "A ∈ \<complex> --> ( \<zero> \<ca> A ) = A"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S2: "( \<zero> ∈ \<complex> ∧ A ∈ \<complex> ) --> ( \<zero> \<ca> A ) = ( A \<ca> \<zero> )" 
     by (rule MMI_axaddcom)
   from S1 S2 have S3: "A ∈ \<complex> --> ( \<zero> \<ca> A ) = ( A \<ca> \<zero> )" 
     by (rule MMI_mpan)
   have S4: "A ∈ \<complex> --> ( A \<ca> \<zero> ) = A" by (rule MMI_ax0id)
   from S3 S4 show "A ∈ \<complex> --> ( \<zero> \<ca> A ) = A" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_peano2cn: 
   shows "A ∈ \<complex> --> ( A \<ca> \<one> ) ∈ \<complex>"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "( A ∈ \<complex> ∧ \<one> ∈ \<complex> ) --> ( A \<ca> \<one> ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S1 S2 show "A ∈ \<complex> --> ( A \<ca> \<one> ) ∈ \<complex>" by (rule MMI_mpan2)
qed;

(*** 31-34 ********************************************************)

lemma (in MMIsar0) MMI_peano2re: 
   shows "A ∈ \<real> --> ( A \<ca> \<one> ) ∈ \<real>"
proof -
   have S1: "\<one> ∈ \<real>" by (rule MMI_ax1re)
   have S2: "( A ∈ \<real> ∧ \<one> ∈ \<real> ) --> ( A \<ca> \<one> ) ∈ \<real>" by (rule MMI_axaddrcl)
   from S1 S2 show "A ∈ \<real> --> ( A \<ca> \<one> ) ∈ \<real>" by (rule MMI_mpan2)
qed

lemma (in MMIsar0) MMI_negeu: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "∃! x . x ∈ \<complex> ∧ ( A \<ca> x ) = B"
proof -
   { fix x y
     have S1: "x = y --> ( A \<ca> x ) = ( A \<ca> y )" by (rule MMI_opreq2)
     from S1 have "x = y --> ( ( A \<ca> x ) = B <-> ( A \<ca> y ) = B )" 
       by (rule MMI_eqeq1d)
   } then have S2: "∀x y. x = y --> ( ( A \<ca> x ) = B <-> 
       ( A \<ca> y ) = B )" by simp;
   from S2 have S3: "( ∃! x . x ∈ \<complex> ∧ ( A \<ca> x ) = B ) <-> 
     ( ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B ) ∧ 
     ( ∀ x ∈ \<complex> . ∀ y ∈ \<complex> . ( ( ( A \<ca> x ) = B ∧ ( A \<ca> y ) = B ) --> 
     x = y ) ) )" by (rule MMI_reu4);
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "∃ y ∈ \<complex> . ( A \<ca> y ) = \<zero>" by (rule MMI_negex)
   from A2 have S6: "B ∈ \<complex>".
   { fix y
     have S7: "( y ∈ \<complex> ∧ B ∈ \<complex> ) --> ( y \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
     from S6 S7 have S8: "y ∈ \<complex> --> ( y \<ca> B ) ∈ \<complex>" by (rule MMI_mpan2)
     have S9: "( y \<ca> B ) ∈ \<complex> <-> ( ∃ x ∈ \<complex> . x = ( y \<ca> B ) )" 
       by (rule MMI_risset)
     from S8 S9 have S10: "y ∈ \<complex> --> ( ∃ x ∈ \<complex> . x = ( y \<ca> B ) )" 
       by (rule MMI_sylib)
     { fix x
       have S11: "x = ( y \<ca> B ) --> ( A \<ca> x ) = 
	 ( A \<ca> ( y \<ca> B ) )" by (rule MMI_opreq2)
       from A1 have S12: "A ∈ \<complex>".
       from A2 have S13: "B ∈ \<complex>".
       have S14: "( A ∈ \<complex> ∧ y ∈ \<complex> ∧ B ∈ \<complex> ) --> 
	 ( ( A \<ca> y ) \<ca> B ) = ( A \<ca> ( y \<ca> B ) )" 
	 by (rule MMI_axaddass)
       from S12 S13 S14 have S15: "y ∈ \<complex> --> ( ( A \<ca> y ) \<ca> B ) = 
	 ( A \<ca> ( y \<ca> B ) )" by (rule MMI_mp3an13)
       from S15 have S16: "y ∈ \<complex> --> ( A \<ca> ( y \<ca> B ) ) = 
	 ( ( A \<ca> y ) \<ca> B )" by (rule MMI_eqcomd)
       from S11 S16 have S17: "( y ∈ \<complex> ∧ x = ( y \<ca> B ) ) 
	 --> ( A \<ca> x ) = ( ( A \<ca> y ) \<ca> B )" by (rule MMI_sylan9eqr)
       have S18: "( A \<ca> y ) = \<zero> --> 
	 ( ( A \<ca> y ) \<ca> B ) = ( \<zero> \<ca> B )" by (rule MMI_opreq1)
       from A2 have S19: "B ∈ \<complex>".
       from S19 have S20: "( \<zero> \<ca> B ) = B" by (rule MMI_addid2)
       from S18 S20 have S21: "( A \<ca> y ) = \<zero> --> 
	 ( ( A \<ca> y ) \<ca> B ) = B" by (rule MMI_syl6eq)
       from S17 S21 have S22: "( ( A \<ca> y ) = \<zero> ∧ ( y ∈ \<complex> ∧ x = 
	 ( y \<ca> B ) ) ) --> ( A \<ca> x ) = B" by (rule MMI_sylan9eqr)
       from S22 have S23: "( A \<ca> y ) = \<zero> --> 
	 ( y ∈ \<complex> --> ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) )" 
	 by (rule MMI_exp32)
       from S23 have S24: "( y ∈ \<complex> ∧ ( A \<ca> y ) = \<zero> ) --> 
	 ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B )" by (rule MMI_impcom)
       from S24 have "( y ∈ \<complex> ∧ ( A \<ca> y ) = \<zero> ) --> 
	 ( x ∈ \<complex> --> ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) )" 
	 by (rule MMI_a1d)
     } then have S25: "∀ x. ( y ∈ \<complex> ∧ ( A \<ca> y ) = \<zero> ) --> 
	 ( x ∈ \<complex> --> ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) )" by auto;
     from S25 have S26: "( y ∈ \<complex> ∧ ( A \<ca> y ) = \<zero> ) --> 
       ( ∀ x ∈ \<complex> . ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) )" 
       by (rule MMI_r19_21aiv);
     from S26 have S27: "y ∈ \<complex> --> ( ( A \<ca> y ) = \<zero> --> 
       ( ∀ x ∈ \<complex> . ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) ) )" 
       by (rule MMI_ex)
     have S28: "( ∀ x ∈ \<complex> . ( x = ( y \<ca> B ) --> ( A \<ca> x ) = B ) ) 
       --> ( ( ∃ x ∈ \<complex> . x = ( y \<ca> B ) ) --> 
       ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B ) )" by (rule MMI_r19_22);
     from S27 S28 have S29: "y ∈ \<complex> --> ( ( A \<ca> y ) = \<zero> --> 
       ( ( ∃ x ∈ \<complex> . x = ( y \<ca> B ) ) --> 
       ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B ) ) )" by (rule MMI_syl6)
     from S10 S29 have "y ∈ \<complex> --> ( ( A \<ca> y ) = \<zero> --> 
       ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B ) )" by (rule MMI_mpid);
   } then have S30: "∀ y. y ∈ \<complex> --> ( ( A \<ca> y ) = \<zero> --> 
       ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B ) )" by simp;
   from S30 have S31: "( ∃ y ∈ \<complex> . ( A \<ca> y ) = \<zero> ) --> 
     ( ∃ x ∈ \<complex> . ( A \<ca> x ) = B )" by (rule MMI_r19_23aiv)
   from S5 S31 have S32: "∃ x ∈ \<complex> . ( A \<ca> x ) = B" by (rule MMI_ax_mp)
   from A1 have S33: "A ∈ \<complex>".
   { fix x y
     have S34: "( A ∈ \<complex> ∧ x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
       ( ( A \<ca> x ) = ( A \<ca> y ) <-> x = y )" by (rule MMI_addcant)
     have S35: "( ( A \<ca> x ) = B ∧ ( A \<ca> y ) = B ) --> 
       ( A \<ca> x ) = ( A \<ca> y )" by (rule MMI_eqtr3t)
     from S34 S35 have S36: "( A ∈ \<complex> ∧ x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
       ( ( ( A \<ca> x ) = B ∧ ( A \<ca> y ) = B ) --> x = y )" 
       by (rule MMI_syl5bi)
     from S33 S36 have "( x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
       ( ( ( A \<ca> x ) = B ∧ ( A \<ca> y ) = B ) --> x = y )" 
       by (rule MMI_mp3an1)
   } then have S37: "∀x y . ( x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
       ( ( ( A \<ca> x ) = B ∧ ( A \<ca> y ) = B ) --> x = y )" by auto;
   from S37 have S38: "∀ x ∈ \<complex> . ∀ y ∈ \<complex> . ( ( ( A \<ca> x ) = B ∧ 
     ( A \<ca> y ) = B ) --> x = y )" by (rule MMI_rgen2)
   from S3 S32 S38 show "∃! x . x ∈ \<complex> ∧ ( A \<ca> x ) = B" 
     by (rule MMI_mpbir2an)
qed;

(** this is proven by definition rather than importing the Metamath proof **)

lemma (in MMIsar0) MMI_subval: assumes "A ∈ \<complex>"  "B ∈ \<complex>"
  shows "A \<cs> B =  \<Union> { x ∈ \<complex> . B \<ca> x = A }"
  using sub_def by simp;

(** this is a definition in Metamath *)

lemma (in MMIsar0) MMI_df_neg: shows "(\<cn> A) = \<zero> \<cs> A"
  using cneg_def by simp;

(************** 35-37 ****************************************)
 
lemma (in MMIsar0) MMI_negeq: 
   shows "A = B --> \<cn> A = \<cn> B"
proof -
   have S1: "A = B --> ( \<zero> \<cs> A ) = ( \<zero> \<cs> B )" by (rule MMI_opreq2)
   have S2: "\<cn> A = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
   have S3: "\<cn> B = ( \<zero> \<cs> B )" by (rule MMI_df_neg)
   from S1 S2 S3 show "A = B --> \<cn> A = \<cn> B" by (rule MMI_3eqtr4g)
qed;

lemma (in MMIsar0) MMI_negeqi: assumes A1: "A = B"   
   shows "\<cn> A = \<cn> B"
proof -
   from A1 have S1: "A = B".
   have S2: "A = B --> \<cn> A = \<cn> B" by (rule MMI_negeq)
   from S1 S2 show "\<cn> A = \<cn> B" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_negeqd: assumes A1: "φ --> A = B"   
   shows "φ --> \<cn> A = \<cn> B"
proof -
   from A1 have S1: "φ --> A = B".
   have S2: "A = B --> \<cn> A = \<cn> B" by (rule MMI_negeq)
   from S1 S2 show "φ --> \<cn> A = \<cn> B" by (rule MMI_syl)
qed;

(**********************auto************************************)

lemma (in MMIsar0) MMI_hbneg: assumes A1: "y ∈ A --> ( ∀ x . y ∈ A )"   
   shows "y ∈ (\<cn> A) --> ( ∀ x . (y ∈ (\<cn> A) ) )"
  using assms by auto;

lemma (in MMIsar0) MMI_minusex: 
   shows "(\<cn> A) isASet" by auto;

(********38-43************************************************)

lemma (in MMIsar0) MMI_subcl: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<cs> B ) ∈ \<complex>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( A \<cs> B ) = \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A }" 
     by (rule MMI_subval)
   from A2 have S4: "B ∈ \<complex>".
   from A1 have S5: "A ∈ \<complex>".
   from S4 S5 have S6: "∃! x . x ∈ \<complex> ∧ ( B \<ca> x ) = A" by (rule MMI_negeu)
   have S7: "( ∃! x . x ∈ \<complex> ∧ ( B \<ca> x ) = A ) --> 
     \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } ∈ \<complex>" by (rule MMI_reucl)
   from S6 S7 have S8: "\<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } ∈ \<complex>" 
     by (rule MMI_ax_mp)
   from S3 S8 show "( A \<cs> B ) ∈ \<complex>" by simp;
qed;

lemma (in MMIsar0) MMI_subclt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( ( A \<cs> B ) ∈ \<complex> <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) ∈ \<complex> )" by (rule MMI_eleq1d)
   have S3: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S3 have S4: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) ∈ \<complex> <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) ∈ \<complex> )" 
     by (rule MMI_eleq1d)
   have S5: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S5 have S6: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S7: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S7 have S8: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S6 S8 have S9: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) ∈ \<complex>" 
     by (rule MMI_subcl)
   from S2 S4 S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" 
     by (rule MMI_dedth2h)
qed;

lemma (in MMIsar0) MMI_negclt: 
   shows "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S2: "( \<zero> ∈ \<complex> ∧ A ∈ \<complex> ) --> ( \<zero> \<cs> A ) ∈ \<complex>" by (rule MMI_subclt)
   from S1 S2 have S3: "A ∈ \<complex> --> ( \<zero> \<cs> A ) ∈ \<complex>" by (rule MMI_mpan)
   have S4: "( \<cn> A ) = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
   from S3 S4 show "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>" by (rule MMI_syl5eqel)
qed

lemma (in MMIsar0) MMI_negcl: assumes A1: "A ∈ \<complex>"   
   shows "( \<cn> A ) ∈ \<complex>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 show "( \<cn> A ) ∈ \<complex>" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_subadd: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<cs> B ) = C <-> ( B \<ca> C ) = A"
proof -
   from A3 have S1: "C ∈ \<complex>".
   { fix x
     have S2: "x = C --> ( ( A \<cs> B ) = x <-> ( A \<cs> B ) = C )" 
       by (rule MMI_eqeq2)
     have S3: "x = C --> ( B \<ca> x ) = ( B \<ca> C )" by (rule MMI_opreq2)
     from S3 have S4: "x = C --> ( ( B \<ca> x ) = A <-> ( B \<ca> C ) = A )" 
       by (rule MMI_eqeq1d)
     from S2 S4 have "x = C --> ( ( ( A \<cs> B ) = x <-> 
       ( B \<ca> x ) = A ) <-> ( ( A \<cs> B ) = C <-> ( B \<ca> C ) = A ) )" 
       by (rule MMI_bibi12d)
   } then have S5: "∀x. x = C --> ( ( ( A \<cs> B ) = x <-> 
       ( B \<ca> x ) = A ) <-> ( ( A \<cs> B ) = C <-> 
       ( B \<ca> C ) = A ) )" by simp;
   from A2 have S6: "B ∈ \<complex>".
   from A1 have S7: "A ∈ \<complex>".
   from S6 S7 have S8: "∃! x . x ∈ \<complex> ∧ ( B \<ca> x ) = A" by (rule MMI_negeu)
   { fix x 
     have S9: "( x ∈ \<complex> ∧ ( ∃! x . x ∈ \<complex> ∧ ( B \<ca> x ) = A ) --> 
       ( ( B \<ca> x ) = A ) <-> \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } = x )" 
       by (rule MMI_reuuni1)
     from S8 S9 have "x ∈ \<complex> --> ( ( B \<ca> x ) = A <-> 
       \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } = x )" by (rule MMI_mpan2)
   } then have S10: "∀ x. x ∈ \<complex> --> ( ( B \<ca> x ) = A <-> 
       \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } = x )" by blast;
   from A1 have S11: "A ∈ \<complex>".
   from A2 have S12: "B ∈ \<complex>".
   from S11 S12 have S13: "( A \<cs> B ) = \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A }" 
     by (rule MMI_subval)
   from S13 have S14: "∀x. ( A \<cs> B ) = x <-> 
     \<Union> { x ∈ \<complex> . ( B \<ca> x ) = A } = x" by simp;  (* (rule MMI_eqeq1i)*)
   from S10 S14 have S15: "∀x. x ∈ \<complex> --> ( ( A \<cs> B ) = x <-> 
     ( B \<ca> x ) = A )" by (rule MMI_syl6rbbr);
   from S5 S15 have S16: "C ∈ \<complex> --> ( ( A \<cs> B ) = C <-> 
     ( B \<ca> C ) = A )" by (rule MMI_vtoclga)
   from S1 S16 show "( A \<cs> B ) = C <-> ( B \<ca> C ) = A" 
     by (rule MMI_ax_mp)
qed;

(*******************44-53*********************************************)


lemma (in MMIsar0) MMI_subsub23: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<cs> B ) = C <-> ( A \<cs> C ) = B"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A3 have S2: "C ∈ \<complex>".
   from S1 S2 have S3: "( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_addcom)
   from S3 have S4: "( B \<ca> C ) = A <-> ( C \<ca> B ) = A" 
     by (rule MMI_eqeq1i)
   from A1 have S5: "A ∈ \<complex>".
   from A2 have S6: "B ∈ \<complex>".
   from A3 have S7: "C ∈ \<complex>".
   from S5 S6 S7 have S8: "( A \<cs> B ) = C <-> ( B \<ca> C ) = A" 
     by (rule MMI_subadd)
   from A1 have S9: "A ∈ \<complex>".
   from A3 have S10: "C ∈ \<complex>".
   from A2 have S11: "B ∈ \<complex>".
   from S9 S10 S11 have S12: "( A \<cs> C ) = B <-> ( C \<ca> B ) = A" 
     by (rule MMI_subadd)
   from S4 S8 S12 show "( A \<cs> B ) = C <-> ( A \<cs> C ) = B" 
     by (rule MMI_3bitr4)
qed

lemma (in MMIsar0) MMI_subaddt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<cs> B ) = C <-> 
  ( B \<ca> C ) = A )"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( ( A \<cs> B ) = C <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = C )" by (rule MMI_eqeq1d)
   have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( ( B \<ca> C ) = A <-> 
     ( B \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq2)
   from S2 S3 have S4: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( ( A \<cs> B ) = C <-> ( B \<ca> C ) = A ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = C <-> ( B \<ca> C ) = 
     if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_bibi12d)
   have S5: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S5 have S6: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = C <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = C )" 
     by (rule MMI_eqeq1d)
   have S7: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( B \<ca> C ) = 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C )" by (rule MMI_opreq1)
   from S7 have S8: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( B \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) )" 
     by (rule MMI_eqeq1d)
   from S6 S8 have S9: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = C <-> 
     ( B \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = C <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) ) )" 
     by (rule MMI_bibi12d)
   have S10: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = C <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_eqeq2)
   have S11: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C ) = 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_opreq2)
   from S11 have S12: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) = 
     if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq1d)
   from S10 S12 have S13: "C = if ( C ∈ \<complex> , C , \<zero> ) --> 
     ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = C <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> C ) = if ( A ∈ \<complex> , A , \<zero> ) ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     if ( C ∈ \<complex> , C , \<zero> ) <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) = 
     if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_bibi12d)
   have S14: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S14 have S15: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S16: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S16 have S17: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S18: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S18 have S19: "if ( C ∈ \<complex> , C , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S15 S17 S19 have S20: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = 
     if ( C ∈ \<complex> , C , \<zero> ) <-> 
     ( if ( B ∈ \<complex> , B , \<zero> ) \<ca> if ( C ∈ \<complex> , C , \<zero> ) ) = 
     if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_subadd)
   from S4 S9 S13 S20 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<cs> B ) = C <-> ( B \<ca> C ) = A )" by (rule MMI_dedth3h)
qed

lemma (in MMIsar0) MMI_pncan3t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( B \<cs> A ) ) = B"
proof -
   have S1: "( B \<cs> A ) = ( B \<cs> A )" by (rule MMI_eqid)
   have S2: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ ( B \<cs> A ) ∈ \<complex> ) --> 
     ( ( B \<cs> A ) = ( B \<cs> A ) <-> ( A \<ca> ( B \<cs> A ) ) = B )" 
     by (rule MMI_subaddt)
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_pm3_27)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_pm3_26)
   have S5: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> ( B \<cs> A ) ∈ \<complex>" by (rule MMI_subclt)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( B \<cs> A ) ∈ \<complex>" 
     by (rule MMI_ancoms)
   from S2 S3 S4 S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( B \<cs> A ) = 
     ( B \<cs> A ) <-> ( A \<ca> ( B \<cs> A ) ) = B )" by (rule MMI_syl3anc)
   from S1 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( B \<cs> A ) ) = B" 
     by (rule MMI_mpbii)
qed

lemma (in MMIsar0) MMI_pncan3: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<ca> ( B \<cs> A ) ) = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( B \<cs> A ) ) = B" 
     by (rule MMI_pncan3t)
   from S1 S2 S3 show "( A \<ca> ( B \<cs> A ) ) = B" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_negidt: 
   shows "A ∈ \<complex> --> ( A \<ca> ( \<cn> A ) ) = \<zero>"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S2: "( A ∈ \<complex> ∧ \<zero> ∈ \<complex> ) --> ( A \<ca> ( \<zero> \<cs> A ) ) = \<zero>" 
     by (rule MMI_pncan3t)
   from S1 S2 have S3: "A ∈ \<complex> --> ( A \<ca> ( \<zero> \<cs> A ) ) = \<zero>" 
     by (rule MMI_mpan2)
   have S4: "( \<cn> A ) = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
   from S4 have S5: "( A \<ca> ( \<cn> A ) ) = ( A \<ca> ( \<zero> \<cs> A ) )" 
     by (rule MMI_opreq2i)
   from S3 S5 show "A ∈ \<complex> --> ( A \<ca> ( \<cn> A ) ) = \<zero>" by (rule MMI_syl5eq)
qed

lemma (in MMIsar0) MMI_negid: assumes A1: "A ∈ \<complex>"   
   shows "( A \<ca> ( \<cn> A ) ) = \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( A \<ca> ( \<cn> A ) ) = \<zero>" by (rule MMI_negidt)
   from S1 S2 show "( A \<ca> ( \<cn> A ) ) = \<zero>" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_negsub: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from A2 have S3: "B ∈ \<complex>".
   from S3 have S4: "( \<cn> B ) ∈ \<complex>" by (rule MMI_negcl)
   from S2 S4 have S5: "( A \<ca> ( \<cn> B ) ) ∈ \<complex>" by (rule MMI_addcl)
   from S1 S5 have S6: "( B \<ca> ( A \<ca> ( \<cn> B ) ) ) = 
     ( ( A \<ca> ( \<cn> B ) ) \<ca> B )" by (rule MMI_addcom)
   from A1 have S7: "A ∈ \<complex>".
   from S4 have S8: "( \<cn> B ) ∈ \<complex>" .
   from A2 have S9: "B ∈ \<complex>".
   from S7 S8 S9 have S10: "( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = 
     ( A \<ca> ( ( \<cn> B ) \<ca> B ) )" by (rule MMI_addass)
   from S4 have S11: "( \<cn> B ) ∈ \<complex>" .
   from A2 have S12: "B ∈ \<complex>".
   from S11 S12 have S13: "( ( \<cn> B ) \<ca> B ) = ( B \<ca> ( \<cn> B ) )" 
     by (rule MMI_addcom)
   from A2 have S14: "B ∈ \<complex>".
   from S14 have S15: "( B \<ca> ( \<cn> B ) ) = \<zero>" by (rule MMI_negid)
   from S13 S15 have S16: "( ( \<cn> B ) \<ca> B ) = \<zero>" by (rule MMI_eqtr)
   from S16 have S17: "( A \<ca> ( ( \<cn> B ) \<ca> B ) ) = ( A \<ca> \<zero> )" 
     by (rule MMI_opreq2i)
   from A1 have S18: "A ∈ \<complex>".
   from S18 have S19: "( A \<ca> \<zero> ) = A" by (rule MMI_addid1)
   from S10 S17 S19 have S20: "( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = A" 
     by (rule MMI_3eqtr)
   from S6 S20 have S21: "( B \<ca> ( A \<ca> ( \<cn> B ) ) ) = A" 
     by (rule MMI_eqtr)
   from A1 have S22: "A ∈ \<complex>".
   from A2 have S23: "B ∈ \<complex>".
   from S5 have S24: "( A \<ca> ( \<cn> B ) ) ∈ \<complex>" .
   from S22 S23 S24 have S25: "( A \<cs> B ) = ( A \<ca> ( \<cn> B ) ) <-> 
     ( B \<ca> ( A \<ca> ( \<cn> B ) ) ) = A" by (rule MMI_subadd)
   from S21 S25 have S26: "( A \<cs> B ) = ( A \<ca> ( \<cn> B ) )" 
     by (rule MMI_mpbir)
   from S26 show "( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" by (rule MMI_eqcomi)
qed

lemma (in MMIsar0) MMI_negsubt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<ca> ( \<cn> B ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> B ) )" by (rule MMI_opreq1)
   have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B )" by (rule MMI_opreq1)
   from S1 S2 have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B ) <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> B ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) )" by (rule MMI_eqeq12d)
   have S4: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( \<cn> B ) = ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_negeq)
   from S4 have S5: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> B ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) )" 
     by (rule MMI_opreq2d)
   have S6: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) )" 
     by (rule MMI_opreq2)
   from S5 S6 have S7: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> B ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) )" 
     by (rule MMI_eqeq12d)
   have S8: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S8 have S9: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S10: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S10 have S11: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S9 S11 have S12: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) )" 
     by (rule MMI_negsub)
   from S3 S7 S12 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( \<cn> B ) ) = 
     ( A \<cs> B )" by (rule MMI_dedth2h)
qed

lemma (in MMIsar0) MMI_addsubasst: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
  ( A \<ca> ( B \<cs> C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<cn> C ) ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> ( \<cn> C ) ) = 
     ( A \<ca> ( B \<ca> ( \<cn> C ) ) )" by (rule MMI_axaddass)
   have S2: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> ( \<cn> C ) ) = 
     ( A \<ca> ( B \<ca> ( \<cn> C ) ) )" by (rule MMI_syl3an3)
   have S4: "( ( A \<ca> B ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> ( \<cn> C ) ) = ( ( A \<ca> B ) \<cs> C )" 
     by (rule MMI_negsubt)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S4 S5 have S6: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> ( \<cn> C ) ) = ( ( A \<ca> B ) \<cs> C )" 
     by (rule MMI_sylan)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> ( \<cn> C ) ) = ( ( A \<ca> B ) \<cs> C )" 
     by (rule MMI_3impa)
   have S8: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<ca> ( \<cn> C ) ) = ( B \<cs> C )" 
     by (rule MMI_negsubt)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( B \<ca> ( \<cn> C ) ) = ( B \<cs> C )" by (rule MMI_3adant1)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( B \<ca> ( \<cn> C ) ) ) = ( A \<ca> ( B \<cs> C ) )" 
     by (rule MMI_opreq2d)
   from S3 S7 S10 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> C ) = ( A \<ca> ( B \<cs> C ) )" 
     by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_addsubt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
  ( ( A \<cs> C ) \<ca> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) = ( B \<ca> A )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
     ( ( B \<ca> A ) \<cs> C )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> C ) = ( ( B \<ca> A ) \<cs> C )" 
     by (rule MMI_3adant3)
   have S4: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( B \<ca> A ) \<cs> C ) = 
     ( B \<ca> ( A \<cs> C ) )" by (rule MMI_addsubasst)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( B \<ca> A ) \<cs> C ) = ( B \<ca> ( A \<cs> C ) )" by (rule MMI_3com12)
   have S6: "( B ∈ \<complex> ∧ ( A \<cs> C ) ∈ \<complex> ) --> ( B \<ca> ( A \<cs> C ) ) = 
     ( ( A \<cs> C ) \<ca> B )" by (rule MMI_axaddcom)
   from S6 have S7: "B ∈ \<complex> --> ( ( A \<cs> C ) ∈ \<complex> --> 
     ( B \<ca> ( A \<cs> C ) ) = ( ( A \<cs> C ) \<ca> B ) )" by (rule MMI_ex)
   have S8: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S7 S8 have S9: "B ∈ \<complex> --> ( ( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( B \<ca> ( A \<cs> C ) ) = ( ( A \<cs> C ) \<ca> B ) )" by (rule MMI_syl5)
   from S9 have S10: "B ∈ \<complex> --> ( A ∈ \<complex> --> ( C ∈ \<complex> --> 
     ( B \<ca> ( A \<cs> C ) ) = ( ( A \<cs> C ) \<ca> B ) ) )" 
     by (rule MMI_exp3a)
   from S10 have S11: "A ∈ \<complex> --> ( B ∈ \<complex> --> ( C ∈ \<complex> --> 
     ( B \<ca> ( A \<cs> C ) ) = ( ( A \<cs> C ) \<ca> B ) ) )" 
     by (rule MMI_com12)
   from S11 have S12: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( B \<ca> ( A \<cs> C ) ) = ( ( A \<cs> C ) \<ca> B )" by (rule MMI_3imp)
   from S3 S5 S12 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> C ) = ( ( A \<cs> C ) \<ca> B )" by (rule MMI_3eqtrd)
qed;

(******** 54-63**************************************)

lemma (in MMIsar0) MMI_addsub12t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( B \<cs> C ) ) = 
  ( B \<ca> ( A \<cs> C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) = ( B \<ca> A )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
     ( ( B \<ca> A ) \<cs> C )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> C ) = ( ( B \<ca> A ) \<cs> C )" 
     by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
     ( A \<ca> ( B \<cs> C ) )" by (rule MMI_addsubasst)
   have S5: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( B \<ca> A ) \<cs> C ) = 
     ( B \<ca> ( A \<cs> C ) )" by (rule MMI_addsubasst)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( B \<ca> A ) \<cs> C ) = ( B \<ca> ( A \<cs> C ) )" by (rule MMI_3com12)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( B \<cs> C ) ) = ( B \<ca> ( A \<cs> C ) )" 
     by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_addsubass: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<cs> C ) = ( A \<ca> ( B \<cs> C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
     ( A \<ca> ( B \<cs> C ) )" by (rule MMI_addsubasst)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) \<cs> C ) = 
     ( A \<ca> ( B \<cs> C ) )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_addsub: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<cs> C ) = ( ( A \<cs> C ) \<ca> B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> C ) = 
     ( ( A \<cs> C ) \<ca> B )" by (rule MMI_addsubt)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) \<cs> C ) = 
     ( ( A \<cs> C ) \<ca> B )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_2addsubt: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
  ( ( ( A \<ca> B ) \<ca> C ) \<cs> D ) = ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<ca> B ) \<ca> C ) = 
     ( ( A \<ca> C ) \<ca> B )" by (rule MMI_add23t)
   from S1 have S2: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )" by (rule MMI_3expa)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<ca> C ) = ( ( A \<ca> C ) \<ca> B )" 
     by (rule MMI_adantrr)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<ca> B ) \<cs> D )" by (rule MMI_opreq1d)
   have S5: "( ( A \<ca> C ) ∈ \<complex> ∧ B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )" by (rule MMI_addsubt)
   from S5 have S6: "( ( A \<ca> C ) ∈ \<complex> ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )" by (rule MMI_3expb)
   have S7: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> C ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S6 S7 have S8: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )" by (rule MMI_sylan)
   from S8 have S9: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> C ) \<ca> B ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )" by (rule MMI_an4s)
   from S4 S9 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) \<ca> C ) \<cs> D ) = 
     ( ( ( A \<ca> C ) \<cs> D ) \<ca> B )" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_negneg: assumes A1: "A ∈ \<complex>"   
   shows "( \<cn> ( \<cn> A ) ) = A"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from S1 have S2: "( \<cn> A ) ∈ \<complex>" by (rule MMI_negcl)
   from S2 have S3: "( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> A ) ) ) = \<zero>" 
     by (rule MMI_negid)
   from S3 have S4: "( A \<ca> ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> A ) ) ) ) = 
     ( A \<ca> \<zero> )" by (rule MMI_opreq2i)
   from A1 have S5: "A ∈ \<complex>".
   from S5 have S6: "( A \<ca> ( \<cn> A ) ) = \<zero>" by (rule MMI_negid)
   from S6 have S7: "( ( A \<ca> ( \<cn> A ) ) \<ca> ( \<cn> ( \<cn> A ) ) ) = 
     ( \<zero> \<ca> ( \<cn> ( \<cn> A ) ) )" by (rule MMI_opreq1i)
   from A1 have S8: "A ∈ \<complex>".
   from S2 have S9: "( \<cn> A ) ∈ \<complex>" .
   from S2 have S10: "( \<cn> A ) ∈ \<complex>" .
   from S10 have S11: "( \<cn> ( \<cn> A ) ) ∈ \<complex>" by (rule MMI_negcl)
   from S8 S9 S11 have S12: 
     "( ( A \<ca> ( \<cn> A ) ) \<ca> ( \<cn> ( \<cn> A ) ) ) = 
     ( A \<ca> ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> A ) ) ) )" 
     by (rule MMI_addass)
   from S11 have S13: "( \<cn> ( \<cn> A ) ) ∈ \<complex>" .
   from S13 have S14: "( \<zero> \<ca> ( \<cn> ( \<cn> A ) ) ) = 
     ( \<cn> ( \<cn> A ) )" by (rule MMI_addid2)
   from S7 S12 S14 have S15: 
     "( A \<ca> ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> A ) ) ) ) = 
     ( \<cn> ( \<cn> A ) )" by (rule MMI_3eqtr3)
   from A1 have S16: "A ∈ \<complex>".
   from S16 have S17: "( A \<ca> \<zero> ) = A" by (rule MMI_addid1)
   from S4 S15 S17 show "( \<cn> ( \<cn> A ) ) = A" by (rule MMI_3eqtr3)
qed

lemma (in MMIsar0) MMI_subid: assumes A1: "A ∈ \<complex>"   
   shows "( A \<cs> A ) = \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( A \<ca> ( \<cn> A ) ) = ( A \<cs> A )" 
     by (rule MMI_negsub)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( A \<ca> ( \<cn> A ) ) = \<zero>" by (rule MMI_negid)
   from S3 S5 show "( A \<cs> A ) = \<zero>" by (rule MMI_eqtr3)
qed

lemma (in MMIsar0) MMI_subid1: assumes A1: "A ∈ \<complex>"   
   shows "( A \<cs> \<zero> ) = A"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from S1 have S2: "( \<zero> \<ca> A ) = A" by (rule MMI_addid2)
   from A1 have S3: "A ∈ \<complex>".
   have S4: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S5: "A ∈ \<complex>".
   from S3 S4 S5 have S6: "( A \<cs> \<zero> ) = A <-> ( \<zero> \<ca> A ) = A" 
     by (rule MMI_subadd)
   from S2 S6 show "( A \<cs> \<zero> ) = A" by (rule MMI_mpbir)
qed

lemma (in MMIsar0) MMI_negnegt: 
   shows "A ∈ \<complex> --> ( \<cn> ( \<cn> A ) ) = A"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( \<cn> A ) = 
     ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_negeq)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( \<cn> ( \<cn> A ) ) = 
     ( \<cn> ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_negeqd)
   have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> A = if ( A ∈ \<complex> , A , \<zero> )" 
     by (rule MMI_id)
   from S2 S3 have S4: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( \<cn> ( \<cn> A ) ) = A <-> 
     ( \<cn> ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) ) = if ( A ∈ \<complex> , A , \<zero> ) )" 
     by (rule MMI_eqeq12d)
   have S5: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S5 have S6: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S6 have S7: "( \<cn> ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
     if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_negneg)
   from S4 S7 show "A ∈ \<complex> --> ( \<cn> ( \<cn> A ) ) = A" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_subnegt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> ( \<cn> B ) ) = ( A \<ca> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> ( \<cn> B ) ) ) = ( A \<cs> ( \<cn> B ) )" 
     by (rule MMI_negsubt)
   have S2: "B ∈ \<complex> --> ( \<cn> B ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> ( \<cn> B ) ) ) = ( A \<cs> ( \<cn> B ) )" 
     by (rule MMI_sylan2)
   have S4: "B ∈ \<complex> --> ( \<cn> ( \<cn> B ) ) = B" by (rule MMI_negnegt)
   from S4 have S5: "B ∈ \<complex> --> ( A \<ca> ( \<cn> ( \<cn> B ) ) ) = 
     ( A \<ca> B )" by (rule MMI_opreq2d)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> ( \<cn> B ) ) ) = ( A \<ca> B )" by (rule MMI_adantl)
   from S3 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> ( \<cn> B ) ) = 
     ( A \<ca> B )" by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_subidt: 
   shows "A ∈ \<complex> --> ( A \<cs> A ) = \<zero>"
proof -
   have S1: "( A = if ( A ∈ \<complex> , A , \<zero> ) ∧ A = if ( A ∈ \<complex> , A , \<zero> ) ) --> 
     ( A \<cs> A ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( A ∈ \<complex> , A , \<zero> ) )" 
     by (rule MMI_opreq12)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( A \<cs> A ) = ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( A ∈ \<complex> , A , \<zero> ) )" 
     by (rule MMI_anidms)
   from S2 have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( A \<cs> A ) = \<zero> <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( A ∈ \<complex> , A , \<zero> ) ) = \<zero> )" 
     by (rule MMI_eqeq1d)
   have S4: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S4 have S5: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S5 have S6: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( A ∈ \<complex> , A , \<zero> ) ) = \<zero>" 
     by (rule MMI_subid)
   from S3 S6 show "A ∈ \<complex> --> ( A \<cs> A ) = \<zero>" by (rule MMI_dedth)
qed;

(************** 64-73 *************************************)
lemma (in MMIsar0) MMI_subid1t: 
   shows "A ∈ \<complex> --> ( A \<cs> \<zero> ) = A"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<cs> \<zero> ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> \<zero> )" by (rule MMI_opreq1)
   have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     A = if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_id)
   from S1 S2 have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( A \<cs> \<zero> ) = A <-> ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> \<zero> ) = 
     if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq12d)
   have S4: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S4 have S5: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S5 have S6: "( if ( A ∈ \<complex> , A , \<zero> ) \<cs> \<zero> ) = 
     if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_subid1)
   from S3 S6 show "A ∈ \<complex> --> ( A \<cs> \<zero> ) = A" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_pncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> B ) = A"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> B ) = 
     ( A \<ca> ( B \<cs> B ) )" by (rule MMI_addsubasst)
   from S1 have S2: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ B ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<cs> B ) = ( A \<ca> ( B \<cs> B ) )" by (rule MMI_3expb)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> B ) = 
     ( A \<ca> ( B \<cs> B ) )" by (rule MMI_anabsan2)
   have S4: "B ∈ \<complex> --> ( B \<cs> B ) = \<zero>" by (rule MMI_subidt)
   from S4 have S5: "B ∈ \<complex> --> ( A \<ca> ( B \<cs> B ) ) = ( A \<ca> \<zero> )" 
     by (rule MMI_opreq2d)
   have S6: "A ∈ \<complex> --> ( A \<ca> \<zero> ) = A" by (rule MMI_ax0id)
   from S5 S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( B \<cs> B ) ) = A" 
     by (rule MMI_sylan9eqr)
   from S3 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> B ) = A" 
     by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_pncan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> A ) = B"
proof -
   have S1: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> ( B \<ca> A ) = ( A \<ca> B )" 
     by (rule MMI_axaddcom)
   from S1 have S2: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> ( ( B \<ca> A ) \<cs> A ) = 
     ( ( A \<ca> B ) \<cs> A )" by (rule MMI_opreq1d)
   have S3: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> ( ( B \<ca> A ) \<cs> A ) = B" 
     by (rule MMI_pncant)
   from S2 S3 have S4: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> A ) = B" by (rule MMI_eqtr3d)
   from S4 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> A ) = B" 
     by (rule MMI_ancoms)
qed

lemma (in MMIsar0) MMI_npcant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<cs> B ) \<ca> B ) = A"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> B ) = ( ( A \<cs> B ) \<ca> B )" 
     by (rule MMI_addsubt)
   from S1 have S2: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ B ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) \<cs> B ) = ( ( A \<cs> B ) \<ca> B )" by (rule MMI_3expb)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( A \<ca> B ) \<cs> B ) = ( ( A \<cs> B ) \<ca> B )" 
     by (rule MMI_anabsan2)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<ca> B ) \<cs> B ) = A" 
     by (rule MMI_pncant)
   from S3 S4 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<cs> B ) \<ca> B ) = A" 
     by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_npncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
  ( ( A \<cs> B ) \<ca> ( B \<cs> C ) ) = ( A \<cs> C )"
proof -
   have S1: "( ( A \<cs> B ) ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<cs> C ) = 
     ( ( A \<cs> B ) \<ca> ( B \<cs> C ) )" by (rule MMI_addsubasst)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" by (rule MMI_subclt)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<cs> B ) ∈ \<complex>" by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_3simp2)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   from S1 S3 S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<cs> C ) = 
     ( ( A \<cs> B ) \<ca> ( B \<cs> C ) )" by (rule MMI_syl3anc)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<cs> B ) \<ca> B ) = A" 
     by (rule MMI_npcant)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<cs> C ) = ( A \<cs> C )" 
     by (rule MMI_opreq1d)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<cs> C ) = ( A \<cs> C )" 
     by (rule MMI_3adant3)
   from S6 S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<cs> B ) \<ca> ( B \<cs> C ) ) = ( A \<cs> C )" 
     by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_nppcant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
  ( ( ( A \<cs> B ) \<ca> C ) \<ca> B ) = ( A \<ca> C )"
proof -
   have S1: "( ( A \<cs> B ) ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> C ) \<ca> B ) = 
     ( ( ( A \<cs> B ) \<ca> B ) \<ca> C )" by (rule MMI_add23t)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" by (rule MMI_subclt)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" 
     by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_3simp2)
   from S1 S3 S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> C ) \<ca> B ) = 
     ( ( ( A \<cs> B ) \<ca> B ) \<ca> C )" by (rule MMI_syl3anc)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<cs> B ) \<ca> B ) = A" 
     by (rule MMI_npcant)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<ca> C ) = ( A \<ca> C )" 
     by (rule MMI_opreq1d)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> B ) \<ca> C ) = ( A \<ca> C )" 
     by (rule MMI_3adant3)
   from S6 S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A \<cs> B ) \<ca> C ) \<ca> B ) = ( A \<ca> C )" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_subneg: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<cs> ( \<cn> B ) ) = ( A \<ca> B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> ( \<cn> B ) ) = ( A \<ca> B )" 
     by (rule MMI_subnegt)
   from S1 S2 S3 show "( A \<cs> ( \<cn> B ) ) = ( A \<ca> B )" 
     by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_subeq0: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A \<cs> B ) = \<zero> <-> A = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" 
     by (rule MMI_negsub)
   from S3 have S4: "( A \<ca> ( \<cn> B ) ) = \<zero> <-> ( A \<cs> B ) = \<zero>" 
     by (rule MMI_eqeq1i)
   have S5: "( A \<ca> ( \<cn> B ) ) = \<zero> --> 
     ( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = ( \<zero> \<ca> B )" by (rule MMI_opreq1)
   from S4 S5 have S6: "( A \<cs> B ) = \<zero> --> 
     ( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = ( \<zero> \<ca> B )" by (rule MMI_sylbir)
   from A1 have S7: "A ∈ \<complex>".
   from A2 have S8: "B ∈ \<complex>".
   from S8 have S9: "( \<cn> B ) ∈ \<complex>" by (rule MMI_negcl)
   from A2 have S10: "B ∈ \<complex>".
   from S7 S9 S10 have S11: "( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = 
     ( ( A \<ca> B ) \<ca> ( \<cn> B ) )" by (rule MMI_add23)
   from A1 have S12: "A ∈ \<complex>".
   from A2 have S13: "B ∈ \<complex>".
   from S9 have S14: "( \<cn> B ) ∈ \<complex>" .
   from S12 S13 S14 have S15: "( ( A \<ca> B ) \<ca> ( \<cn> B ) ) = 
     ( A \<ca> ( B \<ca> ( \<cn> B ) ) )" by (rule MMI_addass)
   from A2 have S16: "B ∈ \<complex>".
   from S16 have S17: "( B \<ca> ( \<cn> B ) ) = \<zero>" by (rule MMI_negid)
   from S17 have S18: "( A \<ca> ( B \<ca> ( \<cn> B ) ) ) = ( A \<ca> \<zero> )" 
     by (rule MMI_opreq2i)
   from A1 have S19: "A ∈ \<complex>".
   from S19 have S20: "( A \<ca> \<zero> ) = A" by (rule MMI_addid1)
   from S18 S20 have S21: "( A \<ca> ( B \<ca> ( \<cn> B ) ) ) = A" 
     by (rule MMI_eqtr)
   from S11 S15 S21 have S22: "( ( A \<ca> ( \<cn> B ) ) \<ca> B ) = A" 
     by (rule MMI_3eqtr)
   from A2 have S23: "B ∈ \<complex>".
   from S23 have S24: "( \<zero> \<ca> B ) = B" by (rule MMI_addid2)
   from S6 S22 S24 have S25: "( A \<cs> B ) = \<zero> --> A = B" 
     by (rule MMI_3eqtr3g)
   have S26: "A = B --> ( A \<cs> B ) = ( B \<cs> B )" by (rule MMI_opreq1)
   from A2 have S27: "B ∈ \<complex>".
   from S27 have S28: "( B \<cs> B ) = \<zero>" by (rule MMI_subid)
   from S26 S28 have S29: "A = B --> ( A \<cs> B ) = \<zero>" by (rule MMI_syl6eq)
   from S25 S29 show "( A \<cs> B ) = \<zero> <-> A = B" by (rule MMI_impbi)
qed

lemma (in MMIsar0) MMI_neg11: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( \<cn> A ) = ( \<cn> B ) <-> A = B"
proof -
   have S1: "( \<cn> A ) = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
   have S2: "( \<cn> B ) = ( \<zero> \<cs> B )" by (rule MMI_df_neg)
   from S1 S2 have S3: "( \<cn> A ) = ( \<cn> B ) <-> ( \<zero> \<cs> A ) = 
     ( \<zero> \<cs> B )" by (rule MMI_eqeq12i)
   have S4: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S5: "A ∈ \<complex>".
   have S6: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A2 have S7: "B ∈ \<complex>".
   from S6 S7 have S8: "( \<zero> \<cs> B ) ∈ \<complex>" by (rule MMI_subcl)
   from S4 S5 S8 have S9: "( \<zero> \<cs> A ) = ( \<zero> \<cs> B ) <-> 
     ( A \<ca> ( \<zero> \<cs> B ) ) = \<zero>" by (rule MMI_subadd)
   from S2 have S10: "( \<cn> B ) = ( \<zero> \<cs> B )" .
   from S10 have S11: "( A \<ca> ( \<cn> B ) ) = ( A \<ca> ( \<zero> \<cs> B ) )" 
     by (rule MMI_opreq2i)
   from A1 have S12: "A ∈ \<complex>".
   from A2 have S13: "B ∈ \<complex>".
   from S12 S13 have S14: "( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" 
     by (rule MMI_negsub)
   from S11 S14 have S15: "( A \<ca> ( \<zero> \<cs> B ) ) = ( A \<cs> B )" 
     by (rule MMI_eqtr3)
   from S15 have S16: "( A \<ca> ( \<zero> \<cs> B ) ) = \<zero> <-> ( A \<cs> B ) = \<zero>" 
     by (rule MMI_eqeq1i)
   from A1 have S17: "A ∈ \<complex>".
   from A2 have S18: "B ∈ \<complex>".
   from S17 S18 have S19: "( A \<cs> B ) = \<zero> <-> A = B" by (rule MMI_subeq0)
   from S16 S19 have S20: "( A \<ca> ( \<zero> \<cs> B ) ) = \<zero> <-> A = B" 
     by (rule MMI_bitr)
   from S3 S9 S20 show "( \<cn> A ) = ( \<cn> B ) <-> A = B" by (rule MMI_3bitr)
qed;

(*********** 75-84****************************************)

lemma (in MMIsar0) MMI_negcon1: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( \<cn> A ) = B <-> ( \<cn> B ) = A"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from S1 have S2: "( \<cn> ( \<cn> A ) ) = A" by (rule MMI_negneg)
   from S2 have S3: "( \<cn> ( \<cn> A ) ) = ( \<cn> B ) <-> A = ( \<cn> B )" 
     by (rule MMI_eqeq1i)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( \<cn> A ) ∈ \<complex>" by (rule MMI_negcl)
   from A2 have S6: "B ∈ \<complex>".
   from S5 S6 have S7: "( \<cn> ( \<cn> A ) ) = 
     ( \<cn> B ) <-> ( \<cn> A ) = B" by (rule MMI_neg11)
   have S8: "A = ( \<cn> B ) <-> ( \<cn> B ) = A" by (rule MMI_eqcom)
   from S3 S7 S8 show "( \<cn> A ) = B <-> ( \<cn> B ) = A" by (rule MMI_3bitr3)
qed

lemma (in MMIsar0) MMI_negcon2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "A = ( \<cn> B ) <-> B = ( \<cn> A )"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( \<cn> B ) = A <-> ( \<cn> A ) = B" 
     by (rule MMI_negcon1)
   have S4: "A = ( \<cn> B ) <-> ( \<cn> B ) = A" by (rule MMI_eqcom)
   have S5: "B = ( \<cn> A ) <-> ( \<cn> A ) = B" by (rule MMI_eqcom)
   from S3 S4 S5 show "A = ( \<cn> B ) <-> B = ( \<cn> A )" by (rule MMI_3bitr4)
qed

lemma (in MMIsar0) MMI_neg11t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = ( \<cn> B ) <-> A = B )"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( \<cn> A ) = 
     ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_negeq)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( ( \<cn> A ) = 
     ( \<cn> B ) <-> ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = ( \<cn> B ) )" 
     by (rule MMI_eqeq1d)
   have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A = B <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B )" by (rule MMI_eqeq1)
   from S2 S3 have S4: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( ( \<cn> A ) = ( \<cn> B ) <-> A = B ) <-> 
     ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = ( \<cn> B ) <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B ) )" by (rule MMI_bibi12d)
   have S5: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( \<cn> B ) = 
     ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_negeq)
   from S5 have S6: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = ( \<cn> B ) <-> 
     ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) )" 
     by (rule MMI_eqeq2d)
   have S7: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( if ( A ∈ \<complex> , A , \<zero> ) = B <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_eqeq2)
   from S6 S7 have S8: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = ( \<cn> B ) <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B ) <-> ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = 
     ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) <-> if ( A ∈ \<complex> , A , \<zero> ) = 
     if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_bibi12d)
   have S9: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S9 have S10: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S10 S12 have S13: "( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) = 
     ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) <-> if ( A ∈ \<complex> , A , \<zero> ) = 
     if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_neg11)
   from S4 S8 S13 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = 
     ( \<cn> B ) <-> A = B )" by (rule MMI_dedth2h)
qed

lemma (in MMIsar0) MMI_negcon1t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = B <-> ( \<cn> B ) = A )"
proof -
   have S1: "( ( \<cn> A ) ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> ( \<cn> A ) ) = 
     ( \<cn> B ) <-> ( \<cn> A ) = B )" by (rule MMI_neg11t)
   have S2: "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> ( \<cn> A ) ) = 
     ( \<cn> B ) <-> ( \<cn> A ) = B )" by (rule MMI_sylan)
   have S4: "A ∈ \<complex> --> ( \<cn> ( \<cn> A ) ) = A" by (rule MMI_negnegt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( \<cn> ( \<cn> A ) ) = A" 
     by (rule MMI_adantr)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> ( \<cn> A ) ) = 
     ( \<cn> B ) <-> A = ( \<cn> B ) )" by (rule MMI_eqeq1d)
   from S3 S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = B <-> A = 
     ( \<cn> B ) )" by (rule MMI_bitr3d)
   have S8: "A = ( \<cn> B ) <-> ( \<cn> B ) = A" by (rule MMI_eqcom)
   from S7 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = B <-> 
     ( \<cn> B ) = A )" by (rule MMI_syl6bb)
qed

lemma (in MMIsar0) MMI_negcon2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A = ( \<cn> B ) <-> B = ( \<cn> A ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<cn> A ) = B <-> ( \<cn> B ) = A )" 
     by (rule MMI_negcon1t)
   have S2: "A = ( \<cn> B ) <-> ( \<cn> B ) = A" by (rule MMI_eqcom)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A = ( \<cn> B ) <-> 
     ( \<cn> A ) = B )" by (rule MMI_syl6rbbrA);
   have S4: "( \<cn> A ) = B <-> B = ( \<cn> A )" by (rule MMI_eqcom)
   from S3 S4 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A = ( \<cn> B ) <-> B = 
     ( \<cn> A ) )" by (rule MMI_syl6bb)
qed

lemma (in MMIsar0) MMI_subcant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<cs> B ) = 
  ( A \<cs> C ) <-> B = C )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ∧ ( \<cn> C ) ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> B ) ) = ( A \<ca> ( \<cn> C ) ) <-> 
     ( \<cn> B ) = ( \<cn> C ) )" by (rule MMI_addcant)
   have S2: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> B ) ) = ( A \<ca> ( \<cn> C ) ) <-> 
     ( \<cn> B ) = ( \<cn> C ) )" by (rule MMI_syl3an3)
   have S4: "B ∈ \<complex> --> ( \<cn> B ) ∈ \<complex>" by (rule MMI_negclt)
   from S3 S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> B ) ) = ( A \<ca> ( \<cn> C ) ) <-> 
     ( \<cn> B ) = ( \<cn> C ) )" by (rule MMI_syl3an2)
   have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" 
     by (rule MMI_negsubt)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" by (rule MMI_3adant3)
   have S8: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" 
     by (rule MMI_negsubt)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_3adant2)
   from S7 S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> B ) ) = ( A \<ca> ( \<cn> C ) ) <-> 
     ( A \<cs> B ) = ( A \<cs> C ) )" by (rule MMI_eqeq12d)
   have S11: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( \<cn> B ) = ( \<cn> C ) <-> B = C )" 
     by (rule MMI_neg11t)
   from S11 have S12: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( \<cn> B ) = ( \<cn> C ) <-> B = C )" by (rule MMI_3adant1)
   from S5 S10 S12 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<cs> B ) = ( A \<cs> C ) <-> B = C )" by (rule MMI_3bitr3d)
qed

lemma (in MMIsar0) MMI_subcan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
  ( ( A \<cs> C ) = ( B \<cs> C ) <-> A = B )"
proof -
   have S1: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" 
     by (rule MMI_negsubt)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_3adant2)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<ca> ( \<cn> C ) ) = ( B \<cs> C )" 
     by (rule MMI_negsubt)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( B \<ca> ( \<cn> C ) ) = ( B \<cs> C )" by (rule MMI_3adant1)
   from S2 S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> C ) ) = ( B \<ca> ( \<cn> C ) ) <-> ( A \<cs> C ) = 
     ( B \<cs> C ) )" by (rule MMI_eqeq12d)
   have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<cn> C ) ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> C ) ) = ( B \<ca> ( \<cn> C ) ) <-> A = B )" 
     by (rule MMI_addcan2t)
   have S7: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   from S6 S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> ( \<cn> C ) ) = ( B \<ca> ( \<cn> C ) ) <-> A = B )" 
     by (rule MMI_syl3an3)
   from S5 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<cs> C ) = ( B \<cs> C ) <-> A = B )" by (rule MMI_bitr3d)
qed

lemma (in MMIsar0) MMI_subcan: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<cs> B ) = ( A \<cs> C ) <-> B = C"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A \<cs> B ) = ( A \<cs> C ) <-> B = C )" by (rule MMI_subcant)
   from S1 S2 S3 S4 show "( A \<cs> B ) = ( A \<cs> C ) <-> B = C" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_subcan2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A \<cs> C ) = ( B \<cs> C ) <-> A = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<cs> C ) = ( B \<cs> C ) <-> A = B )" by (rule MMI_subcan2t)
   from S1 S2 S3 S4 show "( A \<cs> C ) = ( B \<cs> C ) <-> A = B" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_subeq0t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A \<cs> B ) = \<zero> <-> A = B )"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( ( A \<cs> B ) = \<zero> <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = \<zero> )" by (rule MMI_eqeq1d)
   have S3: "A = if ( A ∈ \<complex> , A , \<zero> ) --> ( A = B <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B )" by (rule MMI_eqeq1)
   from S2 S3 have S4: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
     ( ( ( A \<cs> B ) = \<zero> <-> A = B ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = \<zero> <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B ) )" by (rule MMI_bibi12d)
   have S5: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) )" 
     by (rule MMI_opreq2)
   from S5 have S6: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = \<zero> <-> 
     ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = \<zero> )" 
     by (rule MMI_eqeq1d)
   have S7: "B = if ( B ∈ \<complex> , B , \<zero> ) --> ( if ( A ∈ \<complex> , A , \<zero> ) = B <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_eqeq2)
   from S6 S7 have S8: "B = if ( B ∈ \<complex> , B , \<zero> ) --> 
     ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> B ) = \<zero> <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = B ) <-> 
     ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = \<zero> <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = if ( B ∈ \<complex> , B , \<zero> ) ) )" 
     by (rule MMI_bibi12d)
   have S9: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S9 have S10: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S10 S12 have S13: 
     "( if ( A ∈ \<complex> , A , \<zero> ) \<cs> if ( B ∈ \<complex> , B , \<zero> ) ) = \<zero> <-> 
     if ( A ∈ \<complex> , A , \<zero> ) = if ( B ∈ \<complex> , B , \<zero> )" 
     by (rule MMI_subeq0)
   from S4 S8 S13 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( A \<cs> B ) = \<zero> <-> A = B )" by (rule MMI_dedth2h)
qed;

(*******************85-90*******************************)

lemma (in MMIsar0) MMI_neg0: 
   shows "( \<cn> \<zero> ) = \<zero>"
proof -
   have S1: "( \<cn> \<zero> ) = ( \<zero> \<cs> \<zero> )" by (rule MMI_df_neg)
   have S2: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S2 have S3: "( \<zero> \<cs> \<zero> ) = \<zero>" by (rule MMI_subid)
   from S1 S3 show "( \<cn> \<zero> ) = \<zero>" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_renegcl: assumes A1: "A ∈ \<real>"   
   shows "( \<cn> A ) ∈ \<real>"
proof -
   from A1 have S1: "A ∈ \<real>".
   have S2: "A ∈ \<real> --> ( ∃ x ∈ \<real> . ( A \<ca> x ) = \<zero> )" by (rule MMI_axrnegex)
   from S1 S2 have S3: "∃ x ∈ \<real> . ( A \<ca> x ) = \<zero>" by (rule MMI_ax_mp)
   have S4: "( ∃ x ∈ \<real> . ( A \<ca> x ) = \<zero> ) <-> 
     ( ∃ x . ( x ∈ \<real> ∧ ( A \<ca> x ) = \<zero> ) )" by (rule MMI_df_rex);
   from S3 S4 have S5: "∃ x . ( x ∈ \<real> ∧ ( A \<ca> x ) = \<zero> )" 
     by (rule MMI_mpbi)
   { fix x
     have S6: "x ∈ \<real> --> x ∈ \<complex>" by (rule MMI_recnt)
     have S7: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
     from A1 have S8: "A ∈ \<real>".
     from S8 have S9: "A ∈ \<complex>" by (rule MMI_recn)
     have S10: "( \<zero> ∈ \<complex> ∧ A ∈ \<complex> ∧ x ∈ \<complex> ) --> ( ( \<zero> \<cs> A ) = x <-> 
       ( A \<ca> x ) = \<zero> )" by (rule MMI_subaddt)
     from S7 S9 S10 have S11: "x ∈ \<complex> --> ( ( \<zero> \<cs> A ) = x <-> 
       ( A \<ca> x ) = \<zero> )" by (rule MMI_mp3an12)
     from S6 S11 have S12: "x ∈ \<real> --> ( ( \<zero> \<cs> A ) = x <-> 
       ( A \<ca> x ) = \<zero> )" by (rule MMI_syl)
     have S13: "( \<cn> A ) = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
     from S13 have S14: "( \<cn> A ) = x <-> ( \<zero> \<cs> A ) = x" 
       by (rule MMI_eqeq1i)
     from S12 S14 have S15: "x ∈ \<real> --> ( ( \<cn> A ) = x <-> 
       ( A \<ca> x ) = \<zero> )" by (rule MMI_syl5bb)
     have S16: "x ∈ \<real> --> ( ( \<cn> A ) = x --> ( \<cn> A ) ∈ \<real> )" 
       by (rule MMI_eleq1a)
     from S15 S16 have S17: "x ∈ \<real> --> ( ( A \<ca> x ) = \<zero> --> 
       ( \<cn> A ) ∈ \<real> )" by (rule MMI_sylbird)
     from S17 have "( x ∈ \<real> ∧ ( A \<ca> x ) = \<zero> ) --> ( \<cn> A ) ∈ \<real>" 
       by (rule MMI_imp)
     } then have S18: 
	 "∀x . ( x ∈ \<real> ∧ ( A \<ca> x ) = \<zero> ) --> ( \<cn> A ) ∈ \<real>" 
       by auto;
   from S18 have S19: "( ∃ x . ( x ∈ \<real> ∧ ( A \<ca> x ) = \<zero> ) ) --> 
     ( \<cn> A ) ∈ \<real>" by (rule MMI_19_23aiv);
   from S5 S19 show "( \<cn> A ) ∈ \<real>" by (rule MMI_ax_mp)
qed;

lemma (in MMIsar0) MMI_renegclt: 
   shows "A ∈ \<real> --> ( \<cn> A ) ∈ \<real>"
proof -
   have S1: "A = if ( A ∈ \<real> , A , \<one> ) --> ( \<cn> A ) = 
     ( \<cn> if ( A ∈ \<real> , A , \<one> ) )" by (rule MMI_negeq)
   from S1 have S2: "A = if ( A ∈ \<real> , A , \<one> ) --> ( ( \<cn> A ) ∈ \<real> <-> 
     ( \<cn> if ( A ∈ \<real> , A , \<one> ) ) ∈ \<real> )" by (rule MMI_eleq1d)
   have S3: "\<one> ∈ \<real>" by (rule MMI_ax1re)
   from S3 have S4: "if ( A ∈ \<real> , A , \<one> ) ∈ \<real>" by (rule MMI_elimel)
   from S4 have S5: "( \<cn> if ( A ∈ \<real> , A , \<one> ) ) ∈ \<real>" by (rule MMI_renegcl)
   from S2 S5 show "A ∈ \<real> --> ( \<cn> A ) ∈ \<real>" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_resubclt: 
   shows "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<cs> B ) ∈ \<real>"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" 
     by (rule MMI_negsubt)
   have S2: "A ∈ \<real> --> A ∈ \<complex>" by (rule MMI_recnt)
   have S3: "B ∈ \<real> --> B ∈ \<complex>" by (rule MMI_recnt)
   from S1 S2 S3 have S4: "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<ca> ( \<cn> B ) ) = 
     ( A \<cs> B )" by (rule MMI_syl2an)
   have S5: "( A ∈ \<real> ∧ ( \<cn> B ) ∈ \<real> ) --> ( A \<ca> ( \<cn> B ) ) ∈ \<real>" 
     by (rule MMI_axaddrcl)
   have S6: "B ∈ \<real> --> ( \<cn> B ) ∈ \<real>" by (rule MMI_renegclt)
   from S5 S6 have S7: "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<ca> ( \<cn> B ) ) ∈ \<real>" 
     by (rule MMI_sylan2)
   from S4 S7 show "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<cs> B ) ∈ \<real>" 
     by (rule MMI_eqeltrrd)
qed

lemma (in MMIsar0) MMI_resubcl: assumes A1: "A ∈ \<real>" and
    A2: "B ∈ \<real>"   
   shows "( A \<cs> B ) ∈ \<real>"
proof -
   from A1 have S1: "A ∈ \<real>".
   from A2 have S2: "B ∈ \<real>".
   have S3: "( A ∈ \<real> ∧ B ∈ \<real> ) --> ( A \<cs> B ) ∈ \<real>" by (rule MMI_resubclt)
   from S1 S2 S3 show "( A \<cs> B ) ∈ \<real>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_0re: 
   shows "\<zero> ∈ \<real>"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S1 have S2: "( \<one> \<cs> \<one> ) = \<zero>" by (rule MMI_subid)
   have S3: "\<one> ∈ \<real>" by (rule MMI_ax1re)
   have S4: "\<one> ∈ \<real>" by (rule MMI_ax1re)
   from S3 S4 have S5: "( \<one> \<cs> \<one> ) ∈ \<real>" by (rule MMI_resubcl)
   from S2 S5 show "\<zero> ∈ \<real>" by (rule MMI_eqeltrr)
qed

(************** 91-95 ****************************************)

lemma (in MMIsar0) MMI_mulid2t: 
   shows "A ∈ \<complex> --> ( \<one> · A ) = A"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "( \<one> ∈ \<complex> ∧ A ∈ \<complex> ) --> ( \<one> · A ) = ( A · \<one> )" 
     by (rule MMI_axmulcom)
   from S1 S2 have S3: "A ∈ \<complex> --> ( \<one> · A ) = ( A · \<one> )" by (rule MMI_mpan)
   have S4: "A ∈ \<complex> --> ( A · \<one> ) = A" by (rule MMI_ax1id)
   from S3 S4 show "A ∈ \<complex> --> ( \<one> · A ) = A" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_mul12t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · ( B · C ) ) = 
  ( B · ( A · C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) = ( B · A )" 
     by (rule MMI_axmulcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( A · B ) · C ) = ( ( B · A ) · C )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · B ) · C ) = ( ( B · A ) · C )" by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · B ) · C ) = ( A · ( B · C ) )" by (rule MMI_axmulass)
   have S5: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( B · A ) · C ) = ( B · ( A · C ) )" by (rule MMI_axmulass)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( B · A ) · C ) = ( B · ( A · C ) )" by (rule MMI_3com12)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A · ( B · C ) ) = ( B · ( A · C ) )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_mul23t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A · B ) · C ) = 
  ( ( A · C ) · B )"
proof -
   have S1: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" 
     by (rule MMI_axmulcom)
   from S1 have S2: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · ( B · C ) ) = 
     ( A · ( C · B ) )" by (rule MMI_opreq2d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · ( B · C ) ) = 
     ( A · ( C · B ) )" by (rule MMI_3adant1)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A · B ) · C ) = 
     ( A · ( B · C ) )" by (rule MMI_axmulass)
   have S5: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( A · C ) · B ) = 
     ( A · ( C · B ) )" by (rule MMI_axmulass)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · C ) · B ) = ( A · ( C · B ) )" by (rule MMI_3com23)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · B ) · C ) = ( ( A · C ) · B )" by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_mul4t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
  ( ( A · B ) · ( C · D ) ) = ( ( A · C ) · ( B · D ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A · B ) · C ) = ( ( A · C ) · B )" by (rule MMI_mul23t)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( ( A · C ) · B ) · D )" 
     by (rule MMI_opreq1d)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( ( A · C ) · B ) · D )" 
     by (rule MMI_3expa)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( ( A · C ) · B ) · D )" 
     by (rule MMI_adantrr)
   have S5: "( ( A · B ) ∈ \<complex> ∧ C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( A · B ) · ( C · D ) )" 
     by (rule MMI_axmulass)
   from S5 have S6: "( ( A · B ) ∈ \<complex> ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( A · B ) · ( C · D ) )" by (rule MMI_3expb)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S6 S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · B ) · C ) · D ) = ( ( A · B ) · ( C · D ) )" by (rule MMI_sylan)
   have S9: "( ( A · C ) ∈ \<complex> ∧ B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( ( A · C ) · B ) · D ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_axmulass)
   from S9 have S10: "( ( A · C ) ∈ \<complex> ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) · B ) · D ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_3expb)
   have S11: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S10 S11 have S12: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) · B ) · D ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_sylan)
   from S12 have S13: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) · B ) · D ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_an4s)
   from S4 S8 S13 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · B ) · ( C · D ) ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_muladdt: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
  ( ( A \<ca> B ) · ( C \<ca> D ) ) = 
  ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )"
proof -
   have S1: "( ( A \<ca> B ) ∈ \<complex> ∧ C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · ( C \<ca> D ) ) = 
     ( ( ( A \<ca> B ) · C ) \<ca> ( ( A \<ca> B ) · D ) )" 
     by (rule MMI_axdistr)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A \<ca> B ) ∈ \<complex>" by (rule MMI_adantr)
   have S4: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_pm3_26)
   from S4 have S5: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> C ∈ \<complex>" 
     by (rule MMI_adantl)
   have S6: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> D ∈ \<complex>" by (rule MMI_pm3_27)
   from S6 have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> D ∈ \<complex>" 
     by (rule MMI_adantl)
   from S1 S3 S5 S7 have S8: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) -->
     ( ( A \<ca> B ) · ( C \<ca> D ) ) = 
     ( ( ( A \<ca> B ) · C ) \<ca> ( ( A \<ca> B ) · D ) )" 
     by (rule MMI_syl3anc)
   have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )" 
     by (rule MMI_adddirt)
   from S9 have S10: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )" 
     by (rule MMI_3expa)
   from S10 have S11: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) · C ) = ( ( A · C ) \<ca> ( B · C ) )" 
     by (rule MMI_adantrr)
   have S12: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · D ) = ( ( A · D ) \<ca> ( B · D ) )" 
     by (rule MMI_adddirt)
   from S12 have S13: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ D ∈ \<complex> ) --> 
     ( ( A \<ca> B ) · D ) = ( ( A · D ) \<ca> ( B · D ) )" 
     by (rule MMI_3expa)
   from S13 have S14: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) · D ) = ( ( A · D ) \<ca> ( B · D ) )" 
     by (rule MMI_adantrl)
   from S11 S14 have S15: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A \<ca> B ) · C ) \<ca> ( ( A \<ca> B ) · D ) ) = 
     ( ( ( A · C ) \<ca> ( B · C ) ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) )" 
     by (rule MMI_opreq12d)
   have S16: 
     "( ( A · C ) ∈ \<complex> ∧ ( B · C ) ∈ \<complex> ∧ 
     ( ( A · D ) \<ca> ( B · D ) ) ∈ \<complex> ) --> 
     ( ( ( A · C ) \<ca> ( B · C ) ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) = 
     ( ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) \<ca> ( B · C ) )" 
     by (rule MMI_add23t)
   have S17: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S17 have S18: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A · C ) ∈ \<complex>" by (rule MMI_ad2ant2r)
   have S19: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S19 have S20: "( B ∈ \<complex> ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B · C ) ∈ \<complex>" by (rule MMI_adantrr)
   from S20 have S21: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B · C ) ∈ \<complex>" by (rule MMI_adantll)
   have S22: "( ( A · D ) ∈ \<complex> ∧ ( B · D ) ∈ \<complex> ) --> 
     ( ( A · D ) \<ca> ( B · D ) ) ∈ \<complex>" by (rule MMI_axaddcl)
   have S23: "( A ∈ \<complex> ∧ D ∈ \<complex> ) --> ( A · D ) ∈ \<complex>" by (rule MMI_axmulcl)
   have S24: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( B · D ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S22 S23 S24 have S25: 
     "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · D ) \<ca> ( B · D ) ) ∈ \<complex>" by (rule MMI_syl2an)
   from S25 have S26: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ D ∈ \<complex> ) --> 
     ( ( A · D ) \<ca> ( B · D ) ) ∈ \<complex>" by (rule MMI_anandirs)
   from S26 have S27: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · D ) \<ca> ( B · D ) ) ∈ \<complex>" by (rule MMI_adantrl)
   from S16 S18 S21 S27 have S28: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( B · C ) ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) = 
     ( ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) \<ca> ( B · C ) )" 
     by (rule MMI_syl3anc)
   have S29: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( B · D ) = ( D · B )" 
     by (rule MMI_axmulcom)
   from S29 have S30: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B · D ) = ( D · B )" by (rule MMI_ad2ant2l)
   from S30 have S31: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( B · D ) ) = 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( D · B ) )" 
     by (rule MMI_opreq2d)
   have S32: "( ( A · C ) ∈ \<complex> ∧ ( A · D ) ∈ \<complex> ∧ ( B · D ) ∈ \<complex> ) --> 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( B · D ) ) = 
     ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) )" 
     by (rule MMI_axaddass)
   from S18 have S33: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> ( A · C ) ∈ \<complex>" .
   from S23 have S34: "( A ∈ \<complex> ∧ D ∈ \<complex> ) --> ( A · D ) ∈ \<complex>" .
   from S34 have S35: "( A ∈ \<complex> ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A · D ) ∈ \<complex>" by (rule MMI_adantrl)
   from S35 have S36: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A · D ) ∈ \<complex>" by (rule MMI_adantlr)
   from S24 have S37: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( B · D ) ∈ \<complex>" .
   from S37 have S38: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B · D ) ∈ \<complex>" by (rule MMI_ad2ant2l)
   from S32 S33 S36 S38 have S39: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( B · D ) ) = 
     ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) )" by (rule MMI_syl3anc)
   have S40: "( ( A · C ) ∈ \<complex> ∧ ( A · D ) ∈ \<complex> ∧ ( D · B ) ∈ \<complex> ) --> 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( D · B ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) )" by (rule MMI_add23t)
   from S18 have S41: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> ( A · C ) ∈ \<complex>" .
   from S36 have S42: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A · D ) ∈ \<complex>" .
   have S43: "( D ∈ \<complex> ∧ B ∈ \<complex> ) --> ( D · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S43 have S44: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( D · B ) ∈ \<complex>" 
     by (rule MMI_ancoms)
   from S44 have S45: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( D · B ) ∈ \<complex>" by (rule MMI_ad2ant2l)
   from S40 S41 S42 S45 have S46: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( A · D ) ) \<ca> ( D · B ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) )" by (rule MMI_syl3anc)
   from S31 S39 S46 have S47: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) )" by (rule MMI_3eqtr3d)
   have S48: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" 
     by (rule MMI_axmulcom)
   from S48 have S49: "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
     ( B · C ) = ( C · B )" by (rule MMI_adantl)
   from S49 have S50: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( B · C ) = ( C · B )" by (rule MMI_an42s)
   from S47 S50 have S51: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) \<ca> ( B · C ) ) = 
     ( ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) ) \<ca> ( C · B ) )" 
     by (rule MMI_opreq12d)
   have S52: 
     "( ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex> ∧ ( A · D ) ∈ \<complex> ∧ 
     ( C · B ) ∈ \<complex> ) --> 
     ( ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) ) \<ca> ( C · B ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_axaddass)
   have S53: "( ( A · C ) ∈ \<complex> ∧ ( D · B ) ∈ \<complex> ) --> 
     ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S17 have S54: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" .
   from S44 have S55: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( D · B ) ∈ \<complex>" .
   from S53 S54 S55 have S56: 
     "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_syl2an)
   from S56 have S57: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_an4s)
   from S36 have S58: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( A · D ) ∈ \<complex>" .
   have S59: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S59 have S60: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( C · B ) ∈ \<complex>" 
     by (rule MMI_ancoms)
   from S60 have S61: "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
     ( C · B ) ∈ \<complex>" by (rule MMI_adantl)
   from S61 have S62: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( C · B ) ∈ \<complex>" by (rule MMI_an42s)
   from S52 S57 S58 S62 have S63: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( A · D ) ) \<ca> ( C · B ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_syl3anc)
   from S28 S51 S63 have S64: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( ( A · C ) \<ca> ( B · C ) ) \<ca> ( ( A · D ) \<ca> ( B · D ) ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_3eqtrd)
   from S8 S15 S64 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) · ( C \<ca> D ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_3eqtrd)
qed;

(********* 96-100****************************************************)

lemma (in MMIsar0) MMI_muladd11t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<one> \<ca> A ) · ( \<one> \<ca> B ) ) = 
  ( ( \<one> \<ca> A ) \<ca> ( B \<ca> ( A · B ) ) )"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "( ( \<one> \<ca> A ) ∈ \<complex> ∧ \<one> ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( \<one> \<ca> A ) · ( \<one> \<ca> B ) ) = 
     ( ( ( \<one> \<ca> A ) · \<one> ) \<ca> ( ( \<one> \<ca> A ) · B ) )" 
     by (rule MMI_axdistr)
   from S1 S2 have S3: "( ( \<one> \<ca> A ) ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( \<one> \<ca> A ) · ( \<one> \<ca> B ) ) = 
     ( ( ( \<one> \<ca> A ) · \<one> ) \<ca> ( ( \<one> \<ca> A ) · B ) )" 
     by (rule MMI_mp3an2)
   have S4: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S5: "( \<one> ∈ \<complex> ∧ A ∈ \<complex> ) --> ( \<one> \<ca> A ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S4 S5 have S6: "A ∈ \<complex> --> ( \<one> \<ca> A ) ∈ \<complex>" by (rule MMI_mpan)
   from S3 S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( \<one> \<ca> A ) · ( \<one> \<ca> B ) ) = 
     ( ( ( \<one> \<ca> A ) · \<one> ) \<ca> ( ( \<one> \<ca> A ) · B ) )" by (rule MMI_sylan)
   from S6 have S8: "A ∈ \<complex> --> ( \<one> \<ca> A ) ∈ \<complex>" .
   have S9: "( \<one> \<ca> A ) ∈ \<complex> --> ( ( \<one> \<ca> A ) · \<one> ) = ( \<one> \<ca> A )" 
     by (rule MMI_ax1id)
   from S8 S9 have S10: "A ∈ \<complex> --> ( ( \<one> \<ca> A ) · \<one> ) = ( \<one> \<ca> A )" 
     by (rule MMI_syl)
   from S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( \<one> \<ca> A ) · \<one> ) = ( \<one> \<ca> A )" by (rule MMI_adantr)
   have S12: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S13: "( \<one> ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<one> \<ca> A ) · B ) = 
     ( ( \<one> · B ) \<ca> ( A · B ) )" by (rule MMI_adddirt)
   from S12 S13 have S14: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<one> \<ca> A ) · B ) = ( ( \<one> · B ) \<ca> ( A · B ) )" by (rule MMI_mp3an1)
   have S15: "B ∈ \<complex> --> ( \<one> · B ) = B" by (rule MMI_mulid2t)
   from S15 have S16: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( \<one> · B ) = B" 
     by (rule MMI_adantl)
   from S16 have S17: 
     "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<one> · B ) \<ca> ( A · B ) ) = 
     ( B \<ca> ( A · B ) )" by (rule MMI_opreq1d)
   from S14 S17 have S18: 
     "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( ( \<one> \<ca> A ) · B ) = 
     ( B \<ca> ( A · B ) )" by (rule MMI_eqtrd)
   from S11 S18 have S19: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( ( \<one> \<ca> A ) · \<one> ) \<ca> ( ( \<one> \<ca> A ) · B ) ) = 
     ( ( \<one> \<ca> A ) \<ca> ( B \<ca> ( A · B ) ) )" by (rule MMI_opreq12d)
   from S7 S19 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
     ( ( \<one> \<ca> A ) · ( \<one> \<ca> B ) ) = 
     ( ( \<one> \<ca> A ) \<ca> ( B \<ca> ( A · B ) ) )" 
     by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_mul12: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A · ( B · C ) ) = ( B · ( A · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( A · B ) = ( B · A )" by (rule MMI_mulcom)
   from S3 have S4: "( ( A · B ) · C ) = ( ( B · A ) · C )" 
     by (rule MMI_opreq1i)
   from A1 have S5: "A ∈ \<complex>".
   from A2 have S6: "B ∈ \<complex>".
   from A3 have S7: "C ∈ \<complex>".
   from S5 S6 S7 have S8: "( ( A · B ) · C ) = ( A · ( B · C ) )" 
     by (rule MMI_mulass)
   from A2 have S9: "B ∈ \<complex>".
   from A1 have S10: "A ∈ \<complex>".
   from A3 have S11: "C ∈ \<complex>".
   from S9 S10 S11 have S12: "( ( B · A ) · C ) = ( B · ( A · C ) )" 
     by (rule MMI_mulass)
   from S4 S8 S12 show "( A · ( B · C ) ) = ( B · ( A · C ) )" 
     by (rule MMI_3eqtr3)
qed

lemma (in MMIsar0) MMI_mul23: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A · B ) · C ) = ( ( A · C ) · B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A · B ) · C ) = 
     ( ( A · C ) · B )" by (rule MMI_mul23t)
   from S1 S2 S3 S4 show "( ( A · B ) · C ) = ( ( A · C ) · B )" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_mul4: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "D ∈ \<complex>"   
   shows "( ( A · B ) · ( C · D ) ) = ( ( A · C ) · ( B · D ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "A ∈ \<complex> ∧ B ∈ \<complex>" by (rule MMI_pm3_2i)
   from A3 have S4: "C ∈ \<complex>".
   from A4 have S5: "D ∈ \<complex>".
   from S4 S5 have S6: "C ∈ \<complex> ∧ D ∈ \<complex>" by (rule MMI_pm3_2i)
   have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A · B ) · ( C · D ) ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_mul4t)
   from S3 S6 S7 show "( ( A · B ) · ( C · D ) ) = ( ( A · C ) · ( B · D ) )" 
     by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_muladd: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "D ∈ \<complex>"   
   shows "( ( A \<ca> B ) · ( C \<ca> D ) ) = 
  ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "A ∈ \<complex> ∧ B ∈ \<complex>" by (rule MMI_pm3_2i)
   from A3 have S4: "C ∈ \<complex>".
   from A4 have S5: "D ∈ \<complex>".
   from S4 S5 have S6: "C ∈ \<complex> ∧ D ∈ \<complex>" by (rule MMI_pm3_2i)
   have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
     ( ( A \<ca> B ) · ( C \<ca> D ) ) =
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_muladdt)
   from S3 S6 S7 show 
     "( ( A \<ca> B ) · ( C \<ca> D ) ) = 
     ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_mp2an)
qed;

(************ 101-110 *********************)
lemma (in MMIsar0) MMI_subdit: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · ( B \<cs> C ) ) = ( ( A · B ) \<cs> ( A · C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ ( B \<cs> C ) ∈ \<complex> ) --> 
 ( A · ( C \<ca> ( B \<cs> C ) ) ) = 
     ( ( A · C ) \<ca> ( A · ( B \<cs> C ) ) )" by (rule MMI_axdistr)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   have S4: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" 
     by (rule MMI_3adant1)
   from S1 S2 S3 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · ( C \<ca> ( B \<cs> C ) ) ) = 
     ( ( A · C ) \<ca> ( A · ( B \<cs> C ) ) )" by (rule MMI_syl3anc)
   have S7: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C \<ca> ( B \<cs> C ) ) = B" by (rule MMI_pncan3t)
   from S7 have S8: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( C \<ca> ( B \<cs> C ) ) = B" by (rule MMI_ancoms)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( C \<ca> ( B \<cs> C ) ) = B" by (rule MMI_3adant1)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · ( C \<ca> ( B \<cs> C ) ) ) = ( A · B )" by (rule MMI_opreq2d)
   from S6 S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · C ) \<ca> ( A · ( B \<cs> C ) ) ) = ( A · B )" by (rule MMI_eqtr3d)
   have S12: "( ( A · B ) ∈ \<complex> ∧ ( A · C ) ∈ \<complex> ∧ ( A · ( B \<cs> C ) ) ∈ \<complex> ) --> 
 ( ( ( A · B ) \<cs> ( A · C ) ) = ( A · ( B \<cs> C ) ) <-> 
     ( ( A · C ) \<ca> ( A · ( B \<cs> C ) ) ) = ( A · B ) )" by (rule MMI_subaddt)
   have S13: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S13 have S14: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · B ) ∈ \<complex>" 
     by (rule MMI_3adant3)
   have S15: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S15 have S16: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" 
     by (rule MMI_3adant2)
   have S17: "( A ∈ \<complex> ∧ ( B \<cs> C ) ∈ \<complex> ) --> ( A · ( B \<cs> C ) ) ∈ \<complex>" 
     by (rule MMI_axmulcl)
   from S4 have S18: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" .
   from S17 S18 have S19: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
     ( A · ( B \<cs> C ) ) ∈ \<complex>" by (rule MMI_sylan2)
   from S19 have S20: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
     ( A · ( B \<cs> C ) ) ∈ \<complex>" by (rule MMI_3impb)
   from S12 S14 S16 S20 have S21: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( ( A · B ) \<cs> ( A · C ) ) = ( A · ( B \<cs> C ) ) <-> 
     ( ( A · C ) \<ca> ( A · ( B \<cs> C ) ) ) = ( A · B ) )" by (rule MMI_syl3anc)
   from S11 S21 have S22: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) \<cs> ( A · C ) ) = ( A · ( B \<cs> C ) )" by (rule MMI_mpbird)
   from S22 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · ( B \<cs> C ) ) = ( ( A · B ) \<cs> ( A · C ) )" by (rule MMI_eqcomd)
qed

lemma (in MMIsar0) MMI_subdirt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( ( A · C ) \<cs> ( B · C ) )"
proof -
   have S1: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( C · ( A \<cs> B ) ) = ( ( C · A ) \<cs> ( C · B ) )" by (rule MMI_subdit)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C · ( A \<cs> B ) ) = ( ( C · A ) \<cs> ( C · B ) )" by (rule MMI_3coml)
   have S3: "( ( A \<cs> B ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( C · ( A \<cs> B ) )" by (rule MMI_axmulcom)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" by (rule MMI_subclt)
   from S3 S4 have S5: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( C · ( A \<cs> B ) )" by (rule MMI_sylan)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( C · ( A \<cs> B ) )" by (rule MMI_3impa)
   have S7: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) = ( C · A )" by (rule MMI_axmulcom)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) = ( C · A )" 
     by (rule MMI_3adant2)
   have S9: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" by (rule MMI_axmulcom)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B · C ) = ( C · B )" 
     by (rule MMI_3adant1)
   from S8 S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · C ) \<cs> ( B · C ) ) = ( ( C · A ) \<cs> ( C · B ) )" 
     by (rule MMI_opreq12d)
   from S2 S6 S11 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( ( A · C ) \<cs> ( B · C ) )" by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_subdi: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( A · ( B \<cs> C ) ) = ( ( A · B ) \<cs> ( A · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · ( B \<cs> C ) ) = ( ( A · B ) \<cs> ( A · C ) )" by (rule MMI_subdit)
   from S1 S2 S3 S4 show "( A · ( B \<cs> C ) ) = ( ( A · B ) \<cs> ( A · C ) )" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_subdir: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<cs> B ) · C ) = ( ( A · C ) \<cs> ( B · C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) · C ) = ( ( A · C ) \<cs> ( B · C ) )" by (rule MMI_subdirt)
   from S1 S2 S3 S4 show "( ( A \<cs> B ) · C ) = ( ( A · C ) \<cs> ( B · C ) )" 
     by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_mul01: assumes A1: "A ∈ \<complex>"   
   shows "( A · \<zero> ) = \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S3: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S1 S2 S3 have S4: "( A · ( \<zero> \<cs> \<zero> ) ) = ( ( A · \<zero> ) \<cs> ( A · \<zero> ) )" 
     by (rule MMI_subdi)
   have S5: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S5 have S6: "( \<zero> \<cs> \<zero> ) = \<zero>" by (rule MMI_subid)
   from S6 have S7: "( A · ( \<zero> \<cs> \<zero> ) ) = ( A · \<zero> )" by (rule MMI_opreq2i)
   from A1 have S8: "A ∈ \<complex>".
   have S9: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S8 S9 have S10: "( A · \<zero> ) ∈ \<complex>" by (rule MMI_mulcl)
   from S10 have S11: "( ( A · \<zero> ) \<cs> ( A · \<zero> ) ) = \<zero>" by (rule MMI_subid)
   from S4 S7 S11 show "( A · \<zero> ) = \<zero>" by (rule MMI_3eqtr3)
qed

lemma (in MMIsar0) MMI_mul02: assumes A1: "A ∈ \<complex>"   
   shows "( \<zero> · A ) = \<zero>"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( \<zero> · A ) = ( A · \<zero> )" by (rule MMI_mulcom)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( A · \<zero> ) = \<zero>" by (rule MMI_mul01)
   from S3 S5 show "( \<zero> · A ) = \<zero>" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_1p1times: assumes A1: "A ∈ \<complex>"   
   shows "( ( \<one> \<ca> \<one> ) · A ) = ( A \<ca> A )"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S3: "A ∈ \<complex>".
   from S1 S2 S3 have S4: "( ( \<one> \<ca> \<one> ) · A ) = ( ( \<one> · A ) \<ca> ( \<one> · A ) )" 
     by (rule MMI_adddir)
   from A1 have S5: "A ∈ \<complex>".
   from S5 have S6: "( \<one> · A ) = A" by (rule MMI_mulid2)
   from S6 have S7: "( \<one> · A ) = A" .
   from S6 S7 have S8: "( ( \<one> · A ) \<ca> ( \<one> · A ) ) = ( A \<ca> A )" 
     by (rule MMI_opreq12i)
   from S4 S8 show "( ( \<one> \<ca> \<one> ) · A ) = ( A \<ca> A )" 
     by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_mul01t: 
   shows "A ∈ \<complex> --> ( A · \<zero> ) = \<zero>"
proof -
   have S1: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · \<zero> ) = ( if ( A ∈ \<complex> , A , \<zero> ) · \<zero> )" by (rule MMI_opreq1)
   from S1 have S2: "A = if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A · \<zero> ) = \<zero> <-> ( if ( A ∈ \<complex> , A , \<zero> ) · \<zero> ) = \<zero> )" by (rule MMI_eqeq1d)
   have S3: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S3 have S4: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S4 have S5: "( if ( A ∈ \<complex> , A , \<zero> ) · \<zero> ) = \<zero>" by (rule MMI_mul01)
   from S2 S5 show "A ∈ \<complex> --> ( A · \<zero> ) = \<zero>" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_mul02t: 
   shows "A ∈ \<complex> --> ( \<zero> · A ) = \<zero>"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S2: "( \<zero> ∈ \<complex> ∧ A ∈ \<complex> ) --> ( \<zero> · A ) = ( A · \<zero> )" by (rule MMI_axmulcom)
   from S1 S2 have S3: "A ∈ \<complex> --> ( \<zero> · A ) = ( A · \<zero> )" by (rule MMI_mpan)
   have S4: "A ∈ \<complex> --> ( A · \<zero> ) = \<zero>" by (rule MMI_mul01t)
   from S3 S4 show "A ∈ \<complex> --> ( \<zero> · A ) = \<zero>" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_mulneg1: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( ( \<cn> A ) · B ) = ( \<cn> ( A · B ) )"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from S1 have S2: "( B · \<zero> ) = \<zero>" by (rule MMI_mul01)
   from A2 have S3: "B ∈ \<complex>".
   from A1 have S4: "A ∈ \<complex>".
   from S3 S4 have S5: "( B · A ) = ( A · B )" by (rule MMI_mulcom)
   from S2 S5 have S6: "( ( B · \<zero> ) \<cs> ( B · A ) ) = ( \<zero> \<cs> ( A · B ) )" 
     by (rule MMI_opreq12i)
   have S7: "( \<cn> A ) = ( \<zero> \<cs> A )" by (rule MMI_df_neg)
   from S7 have S8: "( ( \<cn> A ) · B ) = ( ( \<zero> \<cs> A ) · B )" 
     by (rule MMI_opreq1i)
   have S9: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S10: "A ∈ \<complex>".
   from S9 S10 have S11: "( \<zero> \<cs> A ) ∈ \<complex>" by (rule MMI_subcl)
   from A2 have S12: "B ∈ \<complex>".
   from S11 S12 have S13: "( ( \<zero> \<cs> A ) · B ) = ( B · ( \<zero> \<cs> A ) )" 
     by (rule MMI_mulcom)
   from A2 have S14: "B ∈ \<complex>".
   have S15: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from A1 have S16: "A ∈ \<complex>".
   from S14 S15 S16 have 
     S17: "( B · ( \<zero> \<cs> A ) ) = ( ( B · \<zero> ) \<cs> ( B · A ) )" 
     by (rule MMI_subdi)
   from S8 S13 S17 have 
     S18: "( ( \<cn> A ) · B ) = ( ( B · \<zero> ) \<cs> ( B · A ) )" by (rule MMI_3eqtr)
   have S19: "( \<cn> ( A · B ) ) = ( \<zero> \<cs> ( A · B ) )" by (rule MMI_df_neg)
   from S6 S18 S19 show "( ( \<cn> A ) · B ) = ( \<cn> ( A · B ) )" 
     by (rule MMI_3eqtr4)
qed;

(*********111-120*********************************)

lemma (in MMIsar0) MMI_mulneg2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A · ( \<cn> B ) ) = 
 ( \<cn> ( A · B ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S2 have S3: "( \<cn> B ) ∈ \<complex>" by (rule MMI_negcl)
   from S1 S3 have S4: "( A · ( \<cn> B ) ) = 
 ( ( \<cn> B ) · A )" by (rule MMI_mulcom)
   from A2 have S5: "B ∈ \<complex>".
   from A1 have S6: "A ∈ \<complex>".
   from S5 S6 have S7: "( ( \<cn> B ) · A ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_mulneg1)
   from A2 have S8: "B ∈ \<complex>".
   from A1 have S9: "A ∈ \<complex>".
   from S8 S9 have S10: "( B · A ) = ( A · B )" by (rule MMI_mulcom)
   from S10 have S11: "( \<cn> ( B · A ) ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_negeqi)
   from S4 S7 S11 show "( A · ( \<cn> B ) ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_3eqtr)
qed

lemma (in MMIsar0) MMI_mul2neg: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( A · B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S2 have S3: "( \<cn> B ) ∈ \<complex>" by (rule MMI_negcl)
   from S1 S3 have S4: "( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( \<cn> ( A · ( \<cn> B ) ) )" by (rule MMI_mulneg1)
   from A1 have S5: "A ∈ \<complex>".
   from S3 have S6: "( \<cn> B ) ∈ \<complex>" .
   from S5 S6 have S7: "( A · ( \<cn> B ) ) = 
 ( ( \<cn> B ) · A )" by (rule MMI_mulcom)
   from A2 have S8: "B ∈ \<complex>".
   from A1 have S9: "A ∈ \<complex>".
   from S8 S9 have S10: "( ( \<cn> B ) · A ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_mulneg1)
   from S7 S10 have S11: "( A · ( \<cn> B ) ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_eqtr)
   from S11 have S12: "( \<cn> ( A · ( \<cn> B ) ) ) = 
 ( \<cn> ( \<cn> ( B · A ) ) )" by (rule MMI_negeqi)
   from A2 have S13: "B ∈ \<complex>".
   from A1 have S14: "A ∈ \<complex>".
   from S13 S14 have S15: "( B · A ) ∈ \<complex>" by (rule MMI_mulcl)
   from S15 have S16: "( \<cn> ( \<cn> ( B · A ) ) ) = 
 ( B · A )" by (rule MMI_negneg)
   from S4 S12 S16 have S17: "( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( B · A )" by (rule MMI_3eqtr)
   from A2 have S18: "B ∈ \<complex>".
   from A1 have S19: "A ∈ \<complex>".
   from S18 S19 have S20: "( B · A ) = ( A · B )" by (rule MMI_mulcom)
   from S17 S20 show "( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( A · B )" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_negdi: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( A \<ca> B ) ∈ \<complex>" by (rule MMI_addcl)
   from S3 have S4: "( \<one> · ( A \<ca> B ) ) = 
 ( A \<ca> B )" by (rule MMI_mulid2)
   from S4 have S5: "( \<cn> ( \<one> · ( A \<ca> B ) ) ) = 
 ( \<cn> ( A \<ca> B ) )" by (rule MMI_negeqi)
   have S6: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S6 have S7: "( \<cn> \<one> ) ∈ \<complex>" by (rule MMI_negcl)
   from A1 have S8: "A ∈ \<complex>".
   from A2 have S9: "B ∈ \<complex>".
   from S7 S8 S9 have S10: "( ( \<cn> \<one> ) · ( A \<ca> B ) ) = 
 ( ( ( \<cn> \<one> ) · A ) \<ca> ( ( \<cn> \<one> ) · B ) )" by (rule MMI_adddi)
   have S11: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S3 have S12: "( A \<ca> B ) ∈ \<complex>" .
   from S11 S12 have S13: "( ( \<cn> \<one> ) · ( A \<ca> B ) ) = 
 ( \<cn> ( \<one> · ( A \<ca> B ) ) )" by (rule MMI_mulneg1)
   have S14: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S15: "A ∈ \<complex>".
   from S14 S15 have S16: "( ( \<cn> \<one> ) · A ) = 
 ( \<cn> ( \<one> · A ) )" by (rule MMI_mulneg1)
   from A1 have S17: "A ∈ \<complex>".
   from S17 have S18: "( \<one> · A ) = A" by (rule MMI_mulid2)
   from S18 have S19: "( \<cn> ( \<one> · A ) ) = ( \<cn> A )" by (rule MMI_negeqi)
   from S16 S19 have S20: "( ( \<cn> \<one> ) · A ) = ( \<cn> A )" by (rule MMI_eqtr)
   have S21: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A2 have S22: "B ∈ \<complex>".
   from S21 S22 have S23: "( ( \<cn> \<one> ) · B ) = 
 ( \<cn> ( \<one> · B ) )" by (rule MMI_mulneg1)
   from A2 have S24: "B ∈ \<complex>".
   from S24 have S25: "( \<one> · B ) = B" by (rule MMI_mulid2)
   from S25 have S26: "( \<cn> ( \<one> · B ) ) = ( \<cn> B )" by (rule MMI_negeqi)
   from S23 S26 have S27: "( ( \<cn> \<one> ) · B ) = ( \<cn> B )" by (rule MMI_eqtr)
   from S20 S27 have S28: "( ( ( \<cn> \<one> ) · A ) \<ca> ( ( \<cn> \<one> ) · B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )" by (rule MMI_opreq12i)
   from S10 S13 S28 have S29: "( \<cn> ( \<one> · ( A \<ca> B ) ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )" by (rule MMI_3eqtr3)
   from S5 S29 show "( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )" by (rule MMI_eqtr3)
qed

lemma (in MMIsar0) MMI_negsubdi: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( \<cn> ( A \<cs> B ) ) = 
 ( ( \<cn> A ) \<ca> B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S2 have S3: "( \<cn> B ) ∈ \<complex>" by (rule MMI_negcl)
   from S1 S3 have S4: "( \<cn> ( A \<ca> ( \<cn> B ) ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> B ) ) )" by (rule MMI_negdi)
   from A1 have S5: "A ∈ \<complex>".
   from A2 have S6: "B ∈ \<complex>".
   from S5 S6 have S7: "( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" by (rule MMI_negsub)
   from S7 have S8: "( \<cn> ( A \<ca> ( \<cn> B ) ) ) = 
 ( \<cn> ( A \<cs> B ) )" by (rule MMI_negeqi)
   from A2 have S9: "B ∈ \<complex>".
   from S9 have S10: "( \<cn> ( \<cn> B ) ) = B" by (rule MMI_negneg)
   from S10 have S11: "( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> B ) ) ) = 
 ( ( \<cn> A ) \<ca> B )" by (rule MMI_opreq2i)
   from S4 S8 S11 show "( \<cn> ( A \<cs> B ) ) = 
 ( ( \<cn> A ) \<ca> B )" by (rule MMI_3eqtr3)
qed

lemma (in MMIsar0) MMI_negsubdi2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( \<cn> ( A \<cs> B ) ) = ( B \<cs> A )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( \<cn> ( A \<cs> B ) ) = 
 ( ( \<cn> A ) \<ca> B )" by (rule MMI_negsubdi)
   from A1 have S4: "A ∈ \<complex>".
   from S4 have S5: "( \<cn> A ) ∈ \<complex>" by (rule MMI_negcl)
   from A2 have S6: "B ∈ \<complex>".
   from S5 S6 have S7: "( ( \<cn> A ) \<ca> B ) = 
 ( B \<ca> ( \<cn> A ) )" by (rule MMI_addcom)
   from A2 have S8: "B ∈ \<complex>".
   from A1 have S9: "A ∈ \<complex>".
   from S8 S9 have S10: "( B \<ca> ( \<cn> A ) ) = ( B \<cs> A )" by (rule MMI_negsub)
   from S3 S7 S10 show "( \<cn> ( A \<cs> B ) ) = ( B \<cs> A )" by (rule MMI_3eqtr)
qed

lemma (in MMIsar0) MMI_mulneg1t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( \<cn> ( A · B ) )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<cn> A ) = 
 ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_negeq)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · B )" by (rule MMI_opreq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B )" by (rule MMI_opreq1)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<cn> ( A · B ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · B ) )" by (rule MMI_negeqd)
   from S2 S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( \<cn> A ) · B ) = 
 ( \<cn> ( A · B ) ) <-> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · B ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · B ) ) )" by (rule MMI_eqeq12d)
   have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · B ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · B ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_negeqd)
   from S6 S8 have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · B ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · B ) ) <-> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( B ∈ \<complex> , B , \<zero> ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) ) )" by (rule MMI_eqeq12d)
   have S10: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S10 have S11: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S12: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S12 have S13: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S11 S13 have S14: "( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( B ∈ \<complex> , B , \<zero> ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_mulneg1)
   from S5 S9 S14 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_dedth2h)
qed

lemma (in MMIsar0) MMI_mulneg2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · ( \<cn> B ) ) = 
 ( \<cn> ( A · B ) )"
proof -
   have S1: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> 
 ( ( \<cn> B ) · A ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_mulneg1t)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> B ) · A ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_ancoms)
   have S3: "( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ) --> 
 ( A · ( \<cn> B ) ) = 
 ( ( \<cn> B ) · A )" by (rule MMI_axmulcom)
   have S4: "B ∈ \<complex> --> ( \<cn> B ) ∈ \<complex>" by (rule MMI_negclt)
   from S3 S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · ( \<cn> B ) ) = 
 ( ( \<cn> B ) · A )" by (rule MMI_sylan2)
   have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · B ) = ( B · A )" by (rule MMI_axmulcom)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A · B ) ) = 
 ( \<cn> ( B · A ) )" by (rule MMI_negeqd)
   from S2 S5 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · ( \<cn> B ) ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_mulneg12t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( A · ( \<cn> B ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_mulneg1t)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · ( \<cn> B ) ) = 
 ( \<cn> ( A · B ) )" by (rule MMI_mulneg2t)
   from S1 S2 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · B ) = 
 ( A · ( \<cn> B ) )" by (rule MMI_eqtr4d)
qed

lemma (in MMIsar0) MMI_mul2negt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( A · B )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<cn> A ) = 
 ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_negeq)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> B ) )" by (rule MMI_opreq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B )" by (rule MMI_opreq1)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( A · B ) <-> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> B ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) )" by (rule MMI_eqeq12d)
   have S5: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( \<cn> B ) = 
 ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_negeq)
   from S5 have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_opreq2d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S6 S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> B ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) <-> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_eqeq12d)
   have S9: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S9 have S10: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S10 S12 have S13: "( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) · ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_mul2neg)
   from S4 S8 S13 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) · ( \<cn> B ) ) = 
 ( A · B )" by (rule MMI_dedth2h)
qed

lemma (in MMIsar0) MMI_negdit: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<ca> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<cn> ( A \<ca> B ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) )" by (rule MMI_negeqd)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<cn> A ) = 
 ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_negeq)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> B ) )" by (rule MMI_opreq1d)
   from S2 S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) ) <-> 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> B ) ) )" by (rule MMI_eqeq12d)
   have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S6 have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) ) = 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_negeqd)
   have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( \<cn> B ) = 
 ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_negeq)
   from S8 have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_opreq2d)
   from S7 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> B ) ) <-> 
 ( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) ) )" by (rule MMI_eqeq12d)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S13: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S13 have S14: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S12 S14 have S15: "( \<cn> ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) ) = 
 ( ( \<cn> if ( A ∈ \<complex> , A , \<zero> ) ) \<ca> ( \<cn> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_negdi)
   from S5 S10 S15 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )" by (rule MMI_dedth2h)
qed;

(************121 -130************************************)

lemma (in MMIsar0) MMI_negdi2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> B ) ) = ( ( \<cn> A ) \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> B ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) )" by (rule MMI_negdit)
   have S2: "( ( \<cn> A ) ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) ) = 
 ( ( \<cn> A ) \<cs> B )" by (rule MMI_negsubt)
   have S3: "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>" by (rule MMI_negclt)
   from S2 S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) \<ca> ( \<cn> B ) ) = 
 ( ( \<cn> A ) \<cs> B )" by (rule MMI_sylan)
   from S1 S4 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> B ) ) = ( ( \<cn> A ) \<cs> B )"
 by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_negsubdit: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> B ) ) = ( ( \<cn> A ) \<ca> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> ( \<cn> B ) ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> B ) ) )" by (rule MMI_negdit)
   have S2: "B ∈ \<complex> --> ( \<cn> B ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> ( \<cn> B ) ) ) = 
 ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> B ) ) )" by (rule MMI_sylan2)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" by (rule MMI_negsubt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<ca> ( \<cn> B ) ) ) = 
 ( \<cn> ( A \<cs> B ) )" by (rule MMI_negeqd)
   have S6: "B ∈ \<complex> --> ( \<cn> ( \<cn> B ) ) = B" by (rule MMI_negnegt)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( \<cn> ( \<cn> B ) ) = B" 
     by (rule MMI_adantl)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) \<ca> ( \<cn> ( \<cn> B ) ) ) = 
 ( ( \<cn> A ) \<ca> B )" by (rule MMI_opreq2d)
   from S3 S5 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> B ) ) = ( ( \<cn> A ) \<ca> B )"
 by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_negsubdi2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> B ) ) = ( B \<cs> A )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> B ) ) = ( ( \<cn> A ) \<ca> B )" by (rule MMI_negsubdit)
   have S2: "( ( \<cn> A ) ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) \<ca> B ) = ( B \<ca> ( \<cn> A ) )" by (rule MMI_axaddcom)
   have S3: "A ∈ \<complex> --> ( \<cn> A ) ∈ \<complex>" by (rule MMI_negclt)
   from S2 S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> A ) \<ca> B ) = ( B \<ca> ( \<cn> A ) )" by (rule MMI_sylan)
   have S5: "( B ∈ \<complex> ∧ A ∈ \<complex> ) --> 
 ( B \<ca> ( \<cn> A ) ) = ( B \<cs> A )" by (rule MMI_negsubt)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( B \<ca> ( \<cn> A ) ) = ( B \<cs> A )" by (rule MMI_ancoms)
   from S1 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> B ) ) = ( B \<cs> A )"
 by (rule MMI_3eqtrd)
qed

lemma (in MMIsar0) MMI_subsub2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( A \<ca> ( C \<cs> B ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( B \<cs> C ) ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> ( B \<cs> C ) ) ) = 
 ( A \<cs> ( B \<cs> C ) )" by (rule MMI_negsubt)
   have S2: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( A \<ca> ( \<cn> ( B \<cs> C ) ) ) = 
 ( A \<cs> ( B \<cs> C ) )" by (rule MMI_sylan2)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> ( B \<cs> C ) ) ) = 
 ( A \<cs> ( B \<cs> C ) )" by (rule MMI_3impb)
   have S5: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( \<cn> ( B \<cs> C ) ) = ( C \<cs> B )" by (rule MMI_negsubdi2t)
   from S5 have S6: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> ( B \<cs> C ) ) ) = 
 ( A \<ca> ( C \<cs> B ) )" by (rule MMI_opreq2d)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> ( B \<cs> C ) ) ) = 
 ( A \<ca> ( C \<cs> B ) )" by (rule MMI_3adant1)
   from S4 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( A \<ca> ( C \<cs> B ) )"
 by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_subsubt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( ( A \<cs> B ) \<ca> C )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( A \<ca> ( C \<cs> B ) )" by (rule MMI_subsub2t)
   have S2: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> B ) = ( A \<ca> ( C \<cs> B ) )" by (rule MMI_addsubasst)
   have S3: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> B ) = ( ( A \<cs> B ) \<ca> C )" by (rule MMI_addsubt)
   from S2 S3 have S4: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<ca> ( C \<cs> B ) ) = ( ( A \<cs> B ) \<ca> C )" by (rule MMI_eqtr3d)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( C \<cs> B ) ) = ( ( A \<cs> B ) \<ca> C )" by (rule MMI_3com23)
   from S1 S5 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( ( A \<cs> B ) \<ca> C )"
 by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_subsub3t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( ( A \<ca> C ) \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( A \<ca> ( C \<cs> B ) )" by (rule MMI_subsub2t)
   have S2: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> B ) = ( A \<ca> ( C \<cs> B ) )" by (rule MMI_addsubasst)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> B ) = ( A \<ca> ( C \<cs> B ) )" by (rule MMI_3com23)
   from S1 S3 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> C ) ) = ( ( A \<ca> C ) \<cs> B )"
 by (rule MMI_eqtr4d)
qed

lemma (in MMIsar0) MMI_subsub4t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> C ) = ( A \<cs> ( B \<ca> C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<cn> C ) ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> ( \<cn> C ) ) ) = 
 ( ( A \<cs> B ) \<ca> ( \<cn> C ) )" by (rule MMI_subsubt)
   have S2: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> ( \<cn> C ) ) ) = 
 ( ( A \<cs> B ) \<ca> ( \<cn> C ) )" by (rule MMI_syl3an3)
   have S4: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> ( \<cn> C ) ) = ( B \<ca> C )" by (rule MMI_subnegt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> ( \<cn> C ) ) = ( B \<ca> C )" by (rule MMI_3adant1)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<cs> ( \<cn> C ) ) ) = 
 ( A \<cs> ( B \<ca> C ) )" by (rule MMI_opreq2d)
   have S7: "( ( A \<cs> B ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> C ) ) = 
 ( ( A \<cs> B ) \<cs> C )" by (rule MMI_negsubt)
   have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" by (rule MMI_subclt)
   from S7 S8 have S9: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> C ) ) = 
 ( ( A \<cs> B ) \<cs> C )" by (rule MMI_sylan)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> C ) ) = 
 ( ( A \<cs> B ) \<cs> C )" by (rule MMI_3impa)
   from S3 S6 S10 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> C ) = ( A \<cs> ( B \<ca> C ) )"
 by (rule MMI_3eqtr3rd)
qed

lemma (in MMIsar0) MMI_sub23t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> C ) = ( ( A \<cs> C ) \<cs> B )"
proof -
   have S1: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_3adant1)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( B \<ca> C ) ) = ( A \<cs> ( C \<ca> B ) )" by (rule MMI_opreq2d)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> C ) = ( A \<cs> ( B \<ca> C ) )" by (rule MMI_subsub4t)
   have S5: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<cs> C ) \<cs> B ) = ( A \<cs> ( C \<ca> B ) )" by (rule MMI_subsub4t)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> C ) \<cs> B ) = ( A \<cs> ( C \<ca> B ) )" by (rule MMI_3com23)
   from S3 S4 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> C ) = ( ( A \<cs> C ) \<cs> B )"
 by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_nnncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = ( A \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( B \<cs> C ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = 
 ( A \<cs> ( ( B \<cs> C ) \<ca> C ) )" by (rule MMI_subsub4t)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> C ) ∈ \<complex>" by (rule MMI_3adant1)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   from S1 S2 S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = 
 ( A \<cs> ( ( B \<cs> C ) \<ca> C ) )" by (rule MMI_syl3anc)
   have S7: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( B \<cs> C ) \<ca> C ) = B" by (rule MMI_npcant)
   from S7 have S8: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( ( B \<cs> C ) \<ca> C ) ) = ( A \<cs> B )" by (rule MMI_opreq2d)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( ( B \<cs> C ) \<ca> C ) ) = ( A \<cs> B )" by (rule MMI_3adant1)
   from S6 S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = ( A \<cs> B )"
 by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_nnncan1t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> ( A \<cs> C ) ) = ( C \<cs> B )"
proof -
   have S1: "( ( A \<cs> B ) ∈ \<complex> ∧ ( A \<cs> C ) ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> ( A \<cs> C ) ) ) = 
 ( ( A \<cs> B ) \<cs> ( A \<cs> C ) )" by (rule MMI_negsubt)
   have S2: "( ( A \<cs> B ) ∈ \<complex> ∧ ( \<cn> ( A \<cs> C ) ) ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> ( A \<cs> C ) ) ) = 
 ( ( \<cn> ( A \<cs> C ) ) \<ca> ( A \<cs> B ) )" by (rule MMI_axaddcom)
   have S3: "( A \<cs> C ) ∈ \<complex> --> ( \<cn> ( A \<cs> C ) ) ∈ \<complex>" 
     by (rule MMI_negclt)
   from S2 S3 have S4: "( ( A \<cs> B ) ∈ \<complex> ∧ ( A \<cs> C ) ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<ca> ( \<cn> ( A \<cs> C ) ) ) = 
 ( ( \<cn> ( A \<cs> C ) ) \<ca> ( A \<cs> B ) )" by (rule MMI_sylan2)
   from S1 S4 have S5: "( ( A \<cs> B ) ∈ \<complex> ∧ ( A \<cs> C ) ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> ( A \<cs> C ) ) = 
 ( ( \<cn> ( A \<cs> C ) ) \<ca> ( A \<cs> B ) )" by (rule MMI_eqtr3d)
   have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> B ) ∈ \<complex>" by (rule MMI_subclt)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> B ) ∈ \<complex>" by (rule MMI_3adant3)
   have S8: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> C ) ∈ \<complex>" by (rule MMI_3adant2)
   from S5 S7 S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> ( A \<cs> C ) ) = 
 ( ( \<cn> ( A \<cs> C ) ) \<ca> ( A \<cs> B ) )" by (rule MMI_sylanc)
   have S11: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> C ) ) = ( C \<cs> A )" by (rule MMI_negsubdi2t)
   from S11 have S12: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( \<cn> ( A \<cs> C ) ) = ( C \<cs> A )" by (rule MMI_3adant2)
   from S12 have S13: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( \<cn> ( A \<cs> C ) ) \<ca> ( A \<cs> B ) ) = 
 ( ( C \<cs> A ) \<ca> ( A \<cs> B ) )" by (rule MMI_opreq1d)
   have S14: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( C \<cs> A ) \<ca> ( A \<cs> B ) ) = ( C \<cs> B )" by (rule MMI_npncant)
   from S14 have S15: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( C \<cs> A ) \<ca> ( A \<cs> B ) ) = ( C \<cs> B )" by (rule MMI_3coml)
   from S10 S13 S15 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> B ) \<cs> ( A \<cs> C ) ) = ( C \<cs> B )"
 by (rule MMI_3eqtrd)
qed;

(*****131-140***************************************)

lemma (in MMIsar0) MMI_nnncan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> C ) \<cs> ( B \<cs> C ) ) = ( A \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( B \<cs> C ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = 
 ( ( A \<cs> C ) \<cs> ( B \<cs> C ) )" by (rule MMI_sub23t)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> C ) ∈ \<complex>" by (rule MMI_3adant1)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   from S1 S2 S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = 
 ( ( A \<cs> C ) \<cs> ( B \<cs> C ) )" by (rule MMI_syl3anc)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<cs> C ) ) \<cs> C ) = ( A \<cs> B )" by (rule MMI_nnncant)
   from S6 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> C ) \<cs> ( B \<cs> C ) ) = ( A \<cs> B )" by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_nncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<cs> ( A \<cs> B ) ) = B"
proof -
   have S1: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S2: "( A ∈ \<complex> ∧ \<zero> ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<cs> \<zero> ) \<cs> ( A \<cs> B ) ) = ( B \<cs> \<zero> )" by (rule MMI_nnncan1t)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<cs> \<zero> ) \<cs> ( A \<cs> B ) ) = ( B \<cs> \<zero> )" by (rule MMI_mp3an2)
   have S4: "A ∈ \<complex> --> ( A \<cs> \<zero> ) = A" by (rule MMI_subid1t)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<cs> \<zero> ) = A" 
     by (rule MMI_adantr)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<cs> \<zero> ) \<cs> ( A \<cs> B ) ) = 
 ( A \<cs> ( A \<cs> B ) )" by (rule MMI_opreq1d)
   have S7: "B ∈ \<complex> --> ( B \<cs> \<zero> ) = B" by (rule MMI_subid1t)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( B \<cs> \<zero> ) = B" 
     by (rule MMI_adantl)
   from S3 S6 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<cs> ( A \<cs> B ) ) = B" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_nppcan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<ca> C ) ) \<ca> C ) = ( A \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( B \<ca> C ) ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( ( B \<ca> C ) \<cs> C ) ) = 
 ( ( A \<cs> ( B \<ca> C ) ) \<ca> C )" by (rule MMI_subsubt)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<ca> C ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<ca> C ) ∈ \<complex>" by (rule MMI_3adant1)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   from S1 S2 S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( ( B \<ca> C ) \<cs> C ) ) = 
 ( ( A \<cs> ( B \<ca> C ) ) \<ca> C )" by (rule MMI_syl3anc)
   have S7: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( B \<ca> C ) \<cs> C ) = B" by (rule MMI_pncant)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( B \<ca> C ) \<cs> C ) = B" by (rule MMI_3adant1)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<cs> ( ( B \<ca> C ) \<cs> C ) ) = ( A \<cs> B )" by (rule MMI_opreq2d)
   from S6 S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<cs> ( B \<ca> C ) ) \<ca> C ) = ( A \<cs> B )" by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_mulm1t: 
   shows "A ∈ \<complex> --> ( ( \<cn> \<one> ) · A ) = ( \<cn> A )"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "( \<one> ∈ \<complex> ∧ A ∈ \<complex> ) --> 
 ( ( \<cn> \<one> ) · A ) = ( \<cn> ( \<one> · A ) )" by (rule MMI_mulneg1t)
   from S1 S2 have S3: "A ∈ \<complex> --> 
 ( ( \<cn> \<one> ) · A ) = ( \<cn> ( \<one> · A ) )" by (rule MMI_mpan)
   have S4: "A ∈ \<complex> --> ( \<one> · A ) = A" by (rule MMI_mulid2t)
   from S4 have S5: "A ∈ \<complex> --> ( \<cn> ( \<one> · A ) ) = ( \<cn> A )" 
     by (rule MMI_negeqd)
   from S3 S5 show "A ∈ \<complex> --> ( ( \<cn> \<one> ) · A ) = ( \<cn> A )" 
     by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_mulm1: assumes A1: "A ∈ \<complex>"   
   shows "( ( \<cn> \<one> ) · A ) = ( \<cn> A )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "A ∈ \<complex> --> ( ( \<cn> \<one> ) · A ) = ( \<cn> A )" by (rule MMI_mulm1t)
   from S1 S2 show "( ( \<cn> \<one> ) · A ) = ( \<cn> A )" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_sub4t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( C \<ca> D ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )"
proof -
   have S1: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( \<cn> ( C \<ca> D ) ) = 
 ( ( \<cn> C ) \<ca> ( \<cn> D ) )" by (rule MMI_negdit)
   from S1 have S2: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( \<cn> ( C \<ca> D ) ) = 
 ( ( \<cn> C ) \<ca> ( \<cn> D ) )" by (rule MMI_adantl)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<ca> ( \<cn> ( C \<ca> D ) ) ) = 
 ( ( A \<ca> B ) \<ca> ( ( \<cn> C ) \<ca> ( \<cn> D ) ) )" 
     by (rule MMI_opreq2d)
   have S4: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( ( \<cn> C ) ∈ \<complex> ∧ ( \<cn> D ) ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<ca> ( ( \<cn> C ) \<ca> ( \<cn> D ) ) ) = 
 ( ( A \<ca> ( \<cn> C ) ) \<ca> ( B \<ca> ( \<cn> D ) ) )" by (rule MMI_add4t)
   have S5: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   have S6: "D ∈ \<complex> --> ( \<cn> D ) ∈ \<complex>" by (rule MMI_negclt)
   from S5 S6 have S7: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( ( \<cn> C ) ∈ \<complex> ∧ ( \<cn> D ) ∈ \<complex> )" by (rule MMI_anim12i)
   from S4 S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<ca> ( ( \<cn> C ) \<ca> ( \<cn> D ) ) ) = 
 ( ( A \<ca> ( \<cn> C ) ) \<ca> ( B \<ca> ( \<cn> D ) ) )" by (rule MMI_sylan2)
   from S3 S8 have S9: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<ca> ( \<cn> ( C \<ca> D ) ) ) = 
 ( ( A \<ca> ( \<cn> C ) ) \<ca> ( B \<ca> ( \<cn> D ) ) )" by (rule MMI_eqtrd)
   have S10: "( ( A \<ca> B ) ∈ \<complex> ∧ ( C \<ca> D ) ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<ca> ( \<cn> ( C \<ca> D ) ) ) = 
 ( ( A \<ca> B ) \<cs> ( C \<ca> D ) )" by (rule MMI_negsubt)
   have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   have S12: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> ( C \<ca> D ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S10 S11 S12 have S13: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<ca> ( \<cn> ( C \<ca> D ) ) ) = 
 ( ( A \<ca> B ) \<cs> ( C \<ca> D ) )" by (rule MMI_syl2an)
   have S14: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_negsubt)
   from S14 have S15: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_ad2ant2r)
   have S16: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( B \<ca> ( \<cn> D ) ) = ( B \<cs> D )" by (rule MMI_negsubt)
   from S16 have S17: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( B \<ca> ( \<cn> D ) ) = ( B \<cs> D )" by (rule MMI_ad2ant2l)
   from S15 S17 have S18: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> C ) ) \<ca> ( B \<ca> ( \<cn> D ) ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )" by (rule MMI_opreq12d)
   from S9 S13 S18 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( C \<ca> D ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_sub4: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "D ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<cs> ( C \<ca> D ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "A ∈ \<complex> ∧ B ∈ \<complex>" by (rule MMI_pm3_2i)
   from A3 have S4: "C ∈ \<complex>".
   from A4 have S5: "D ∈ \<complex>".
   from S4 S5 have S6: "C ∈ \<complex> ∧ D ∈ \<complex>" by (rule MMI_pm3_2i)
   have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( C \<ca> D ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )" by (rule MMI_sub4t)
   from S3 S6 S7 show "( ( A \<ca> B ) \<cs> ( C \<ca> D ) ) = 
 ( ( A \<cs> C ) \<ca> ( B \<cs> D ) )" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_mulsubt: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<cs> B ) · ( C \<cs> D ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<cs> ( ( A · D ) \<ca> ( C · B ) ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> B ) ) = ( A \<cs> B )" by (rule MMI_negsubt)
   have S2: "( C ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( C \<ca> ( \<cn> D ) ) = ( C \<cs> D )" by (rule MMI_negsubt)
   from S1 S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> B ) ) · ( C \<ca> ( \<cn> D ) ) ) = 
 ( ( A \<cs> B ) · ( C \<cs> D ) )" by (rule MMI_opreqan12d)
   have S4: "( ( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ ( \<cn> D ) ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> B ) ) · ( C \<ca> ( \<cn> D ) ) ) = 
 ( ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) \<ca> ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) )" by (rule MMI_muladdt)
   have S5: "D ∈ \<complex> --> ( \<cn> D ) ∈ \<complex>" by (rule MMI_negclt)
   from S4 S5 have S6: "( ( A ∈ \<complex> ∧ ( \<cn> B ) ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> B ) ) · ( C \<ca> ( \<cn> D ) ) ) = 
 ( ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) \<ca> 
     ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) )" by (rule MMI_sylanr2)
   have S7: "B ∈ \<complex> --> ( \<cn> B ) ∈ \<complex>" by (rule MMI_negclt)
   from S6 S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> B ) ) · ( C \<ca> ( \<cn> D ) ) ) = 
 ( ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) 
     \<ca> ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) )" 
     by (rule MMI_sylanl2)
   have S9: "( D ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( \<cn> D ) · ( \<cn> B ) ) = ( D · B )" by (rule MMI_mul2negt)
   from S9 have S10: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( ( \<cn> D ) · ( \<cn> B ) ) = ( D · B )" by (rule MMI_ancoms)
   from S10 have S11: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) = 
 ( ( A · C ) \<ca> ( D · B ) )" by (rule MMI_opreq2d)
   from S11 have S12: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) = 
 ( ( A · C ) \<ca> ( D · B ) )" by (rule MMI_ad2ant2l)
   have S13: "( A ∈ \<complex> ∧ D ∈ \<complex> ) --> 
 ( A · ( \<cn> D ) ) = ( \<cn> ( A · D ) )" by (rule MMI_mulneg2t)
   have S14: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( C · ( \<cn> B ) ) = ( \<cn> ( C · B ) )" by (rule MMI_mulneg2t)
   from S13 S14 have S15: "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ B ∈ \<complex> ) ) --> 
 ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) = 
 ( ( \<cn> ( A · D ) ) \<ca> ( \<cn> ( C · B ) ) )" by (rule MMI_opreqan12d)
   have S16: "( ( A · D ) ∈ \<complex> ∧ ( C · B ) ∈ \<complex> ) --> 
 ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) ) = 
 ( ( \<cn> ( A · D ) ) \<ca> ( \<cn> ( C · B ) ) )" by (rule MMI_negdit)
   have S17: "( A ∈ \<complex> ∧ D ∈ \<complex> ) --> ( A · D ) ∈ \<complex>" by (rule MMI_axmulcl)
   have S18: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S16 S17 S18 have S19: 
     "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ B ∈ \<complex> ) ) --> 
 ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) ) = 
 ( ( \<cn> ( A · D ) ) \<ca> ( \<cn> ( C · B ) ) )" by (rule MMI_syl2an)
   from S15 S19 have S20: "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ B ∈ \<complex> ) ) --> 
 ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) = 
 ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) )" by (rule MMI_eqtr4d)
   from S20 have S21: "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) = 
 ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) )" by (rule MMI_ancom2s)
   from S21 have S22: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) = 
 ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) )" by (rule MMI_an42s)
   from S12 S22 have S23: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( ( A · C ) \<ca> ( ( \<cn> D ) · ( \<cn> B ) ) ) \<ca> 
     ( ( A · ( \<cn> D ) ) \<ca> ( C · ( \<cn> B ) ) ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( \<cn> ( ( A · D ) \<ca> 
     ( C · B ) ) ) )" by (rule MMI_opreq12d)
   have S24: "( ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex> ∧ ( ( A · D ) \<ca> 
     ( C · B ) ) ∈ \<complex> ) --> 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<cs> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_negsubt)
   have S25: "( ( A · C ) ∈ \<complex> ∧ ( D · B ) ∈ \<complex> ) --> 
 ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_axaddcl)
   have S26: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> ( A · C ) ∈ \<complex>" by (rule MMI_axmulcl)
   have S27: "( D ∈ \<complex> ∧ B ∈ \<complex> ) --> ( D · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S27 have S28: "( B ∈ \<complex> ∧ D ∈ \<complex> ) --> ( D · B ) ∈ \<complex>" 
     by (rule MMI_ancoms)
   from S25 S26 S28 have S29: 
     "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_syl2an)
   from S29 have S30: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A · C ) \<ca> ( D · B ) ) ∈ \<complex>" by (rule MMI_an4s)
   have S31: "( ( A · D ) ∈ \<complex> ∧ ( C · B ) ∈ \<complex> ) --> 
 ( ( A · D ) \<ca> ( C · B ) ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S17 have S32: "( A ∈ \<complex> ∧ D ∈ \<complex> ) --> ( A · D ) ∈ \<complex>" .
   from S18 have S33: "( C ∈ \<complex> ∧ B ∈ \<complex> ) --> ( C · B ) ∈ \<complex>" .
   from S33 have S34: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( C · B ) ∈ \<complex>" 
     by (rule MMI_ancoms)
   from S31 S32 S34 have S35: 
     "( ( A ∈ \<complex> ∧ D ∈ \<complex> ) ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A · D ) \<ca> ( C · B ) ) ∈ \<complex>" by (rule MMI_syl2an)
   from S35 have S36: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A · D ) \<ca> ( C · B ) ) ∈ \<complex>" by (rule MMI_an42s)
   from S24 S30 S36 have S37: 
     "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<ca> ( \<cn> ( ( A · D ) \<ca> ( C · B ) ) ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<cs> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_sylanc)
   from S8 S23 S37 have S38: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<ca> ( \<cn> B ) ) · ( C \<ca> ( \<cn> D ) ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<cs> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_3eqtrd)
   from S3 S38 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( C ∈ \<complex> ∧ D ∈ \<complex> ) ) --> 
 ( ( A \<cs> B ) · ( C \<cs> D ) ) = 
 ( ( ( A · C ) \<ca> ( D · B ) ) \<cs> ( ( A · D ) \<ca> ( C · B ) ) )" 
     by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_pnpcant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> C ) ) = ( B \<cs> C )"
proof -
   have S1: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ ( A ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> C ) ) = 
 ( ( A \<cs> A ) \<ca> ( B \<cs> C ) )" by (rule MMI_sub4t)
   from S1 have S2: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> C ) ) = 
 ( ( A \<cs> A ) \<ca> ( B \<cs> C ) )" by (rule MMI_anandis)
   have S3: "A ∈ \<complex> --> ( A \<cs> A ) = \<zero>" by (rule MMI_subidt)
   from S3 have S4: "A ∈ \<complex> --> 
 ( ( A \<cs> A ) \<ca> ( B \<cs> C ) ) = 
 ( \<zero> \<ca> ( B \<cs> C ) )" by (rule MMI_opreq1d)
   have S5: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( B \<cs> C ) ∈ \<complex>" by (rule MMI_subclt)
   have S6: "( B \<cs> C ) ∈ \<complex> --> 
 ( \<zero> \<ca> ( B \<cs> C ) ) = ( B \<cs> C )" by (rule MMI_addid2t)
   from S5 S6 have S7: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( \<zero> \<ca> ( B \<cs> C ) ) = ( B \<cs> C )" by (rule MMI_syl)
   from S4 S7 have S8: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A \<cs> A ) \<ca> ( B \<cs> C ) ) = ( B \<cs> C )" by (rule MMI_sylan9eq)
   from S2 S8 have S9: "( A ∈ \<complex> ∧ ( B ∈ \<complex> ∧ C ∈ \<complex> ) ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> C ) ) = ( B \<cs> C )" by (rule MMI_eqtrd)
   from S9 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> C ) ) = ( B \<cs> C )" by (rule MMI_3impb)
qed

lemma (in MMIsar0) MMI_pnpcan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> ( B \<ca> C ) ) = ( A \<cs> B )"
proof -
   have S1: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> C ) = ( C \<ca> A )" by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> C ) = ( C \<ca> A )" by (rule MMI_3adant2)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_axaddcom)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<ca> C ) = ( C \<ca> B )" by (rule MMI_3adant1)
   from S2 S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> ( B \<ca> C ) ) = 
 ( ( C \<ca> A ) \<cs> ( C \<ca> B ) )" by (rule MMI_opreq12d)
   have S6: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( C \<ca> A ) \<cs> ( C \<ca> B ) ) = ( A \<cs> B )" by (rule MMI_pnpcant)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( C \<ca> A ) \<cs> ( C \<ca> B ) ) = ( A \<cs> B )" by (rule MMI_3coml)
   from S5 S7 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> C ) \<cs> ( B \<ca> C ) ) = ( A \<cs> B )" by (rule MMI_eqtrd)
qed;

(*******141-150*********************************)
lemma (in MMIsar0) MMI_pnncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<cs> C ) ) = ( B \<ca> C )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<cn> C ) ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> ( \<cn> C ) ) ) = 
 ( B \<cs> ( \<cn> C ) )" by (rule MMI_pnpcant)
   have S2: "C ∈ \<complex> --> ( \<cn> C ) ∈ \<complex>" by (rule MMI_negclt)
   from S1 S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> ( \<cn> C ) ) ) = 
 ( B \<cs> ( \<cn> C ) )" by (rule MMI_syl3an3)
   have S4: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_negsubt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> ( \<cn> C ) ) = ( A \<cs> C )" by (rule MMI_3adant2)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<ca> ( \<cn> C ) ) ) = 
 ( ( A \<ca> B ) \<cs> ( A \<cs> C ) )" by (rule MMI_opreq2d)
   have S7: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> ( \<cn> C ) ) = ( B \<ca> C )" by (rule MMI_subnegt)
   from S7 have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B \<cs> ( \<cn> C ) ) = ( B \<ca> C )" by (rule MMI_3adant1)
   from S3 S6 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<cs> C ) ) = ( B \<ca> C )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_ppncant: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<ca> ( C \<cs> B ) ) = ( A \<ca> C )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A \<ca> B ) = ( B \<ca> A )" by (rule MMI_axaddcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> B ) = ( B \<ca> A )" by (rule MMI_3adant3)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( B \<cs> C ) ) = 
 ( ( B \<ca> A ) \<cs> ( B \<cs> C ) )" by (rule MMI_opreq1d)
   have S4: "( ( A \<ca> B ) ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( B \<cs> C ) ) = 
 ( ( A \<ca> B ) \<ca> ( C \<cs> B ) )" by (rule MMI_subsub2t)
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A \<ca> B ) ∈ \<complex>" by (rule MMI_axaddcl)
   from S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A \<ca> B ) ∈ \<complex>" by (rule MMI_3adant3)
   have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_3simp2)
   have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> C ∈ \<complex>" by (rule MMI_3simp3)
   from S4 S6 S7 S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( B \<cs> C ) ) = 
 ( ( A \<ca> B ) \<ca> ( C \<cs> B ) )" by (rule MMI_syl3anc)
   have S10: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( B \<ca> A ) \<cs> ( B \<cs> C ) ) = ( A \<ca> C )" by (rule MMI_pnncant)
   from S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( B \<ca> A ) \<cs> ( B \<cs> C ) ) = ( A \<ca> C )" by (rule MMI_3com12)
   from S3 S9 S11 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<ca> ( C \<cs> B ) ) = ( A \<ca> C )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_pnncan: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "( ( A \<ca> B ) \<cs> ( A \<cs> C ) ) = ( B \<ca> C )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A \<ca> B ) \<cs> ( A \<cs> C ) ) = ( B \<ca> C )" by (rule MMI_pnncant)
   from S1 S2 S3 S4 show "( ( A \<ca> B ) \<cs> ( A \<cs> C ) ) = ( B \<ca> C )" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_mulcan: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "A ≠ \<zero>"   
   shows "( A · B ) = ( A · C ) <-> B = C"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A4 have S2: "A ≠ \<zero>".
   from S1 S2 have S3: "∃ x ∈ \<complex> . ( A · x ) = \<one>" by (rule MMI_recex)
   from A1 have S4: "A ∈ \<complex>".
   from A2 have S5: "B ∈ \<complex>".
   { fix x
     have S6: "( x ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
       ( ( x · A ) · B ) = ( x · ( A · B ) )" by (rule MMI_axmulass)
     from S5 S6 have S7: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> 
       ( ( x · A ) · B ) = ( x · ( A · B ) )" by (rule MMI_mp3an3)
     from A3 have S8: "C ∈ \<complex>".
     have S9: "( x ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
       ( ( x · A ) · C ) = ( x · ( A · C ) )" by (rule MMI_axmulass)
     from S8 S9 have S10: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> 
       ( ( x · A ) · C ) = ( x · ( A · C ) )" by (rule MMI_mp3an3)
     from S7 S10 have S11: "( x ∈ \<complex> ∧ A ∈ \<complex> ) --> 
       ( ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) <-> 
       ( x · ( A · B ) ) = 
       ( x · ( A · C ) ) )" by (rule MMI_eqeq12d)
     from S4 S11 have S12: "x ∈ \<complex> --> 
       ( ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) <-> 
       ( x · ( A · B ) ) = 
       ( x · ( A · C ) ) )" by (rule MMI_mpan2)
     have S13: 
       "( A · B ) =  ( A · C ) --> 
       ( x · ( A · B ) ) = ( x · ( A · C ) )" by (rule MMI_opreq2)
     from S12 S13 have S14: "x ∈ \<complex> -->  
       ( ( A · B ) =  ( A · C ) -->  ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) )" by (rule MMI_syl5bir)
     from S14 have S15: 
       "( x ∈ \<complex> ∧ ( A · x ) =  \<one> ) -->  ( ( A · B ) = 
       ( A · C ) -->  ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) )" by (rule MMI_adantr)
     from A1 have S16: "A ∈ \<complex>".
     have S17: "( A ∈ \<complex> ∧ x ∈ \<complex> ) --> 
       ( A · x ) = ( x · A )" by (rule MMI_axmulcom)
     from S16 S17 have S18: "x ∈ \<complex> --> ( A · x ) = ( x · A )" 
       by (rule MMI_mpan)
     from S18 have S19: "x ∈ \<complex> --> 
       ( ( A · x ) = \<one> <-> ( x · A ) = \<one> )" by (rule MMI_eqeq1d)
     have S20: "( x · A ) = 
       \<one> --> ( ( x · A ) · B ) = ( \<one> · B )" by (rule MMI_opreq1)
     from A2 have S21: "B ∈ \<complex>".
     from S21 have S22: "( \<one> · B ) = B" by (rule MMI_mulid2)
     from S20 S22 have S23: "( x · A ) = \<one> --> ( ( x · A ) · B ) = B" 
       by (rule MMI_syl6eq)
     have S24: "( x · A ) = 
       \<one> --> ( ( x · A ) · C ) = ( \<one> · C )" by (rule MMI_opreq1)
     from A3 have S25: "C ∈ \<complex>".
     from S25 have S26: "( \<one> · C ) = C" by (rule MMI_mulid2)
     from S24 S26 have S27: "( x · A ) = \<one> --> ( ( x · A ) · C ) = C" 
       by (rule MMI_syl6eq)
     from S23 S27 have S28: "( x · A ) =  \<one> --> 
       ( ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) <-> B = C )" by (rule MMI_eqeq12d)
     from S19 S28 have S29: "x ∈ \<complex> --> 
       ( ( A · x ) =  \<one> --> 
       ( ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) <-> B = C ) )" by (rule MMI_syl6bi)
     from S29 have S30: 
       "( x ∈ \<complex> ∧ ( A · x ) = \<one> ) --> 
       ( ( ( x · A ) · B ) = 
       ( ( x · A ) · C ) <-> B = C )" by (rule MMI_imp)
     from S15 S30 have S31: 
       "( x ∈ \<complex> ∧ ( A · x ) = \<one> ) --> 
       ( ( A · B ) = ( A · C ) --> B = C )" by (rule MMI_sylibd)
     from S31 have "x ∈ \<complex> --> 
       ( ( A · x ) = \<one> -->  ( ( A · B ) = ( A · C ) --> B = C ) )" 
       by (rule MMI_ex)
     } then have  S32: "∀ x. x ∈ \<complex> --> 
       ( ( A · x ) = \<one> -->  ( ( A · B ) = ( A · C ) --> B = C ) )" 
       by auto;
     from S32 have S33: "( ∃ x ∈ \<complex> . ( A · x ) =  \<one> ) --> 
       ( ( A · B ) = ( A · C ) --> B = C )" by (rule MMI_r19_23aiv)
     from S3 S33 have S34: "( A · B ) = ( A · C ) --> B = C" 
       by (rule MMI_ax_mp)
     have S35: "B = C --> ( A · B ) = ( A · C )" by (rule MMI_opreq2)
     from S34 S35 show "( A · B ) = ( A · C ) <-> B = C" by (rule MMI_impbi)
qed;

lemma (in MMIsar0) MMI_mulcant2: assumes A1: "A ≠ \<zero>"   
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) = ( A · C ) <-> B = C )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( A · B ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · B )" by (rule MMI_opreq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( A · C ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C )" by (rule MMI_opreq1)
   from S1 S2 have S3: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( ( A · B ) = 
 ( A · C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) )" by (rule MMI_eqeq12d)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( ( ( A · B ) = ( A · C ) <-> B = C ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> 
 B = C ) )" by (rule MMI_bibi1d)
   have S5: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( if ( A ∈ \<complex> , A , \<one> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) )" by (rule MMI_opreq2)
   from S5 have S6: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) )" by (rule MMI_eqeq1d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( B = C <-> if ( B ∈ \<complex> , B , \<one> ) = C )" by (rule MMI_eqeq1)
   from S6 S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<one> ) · B ) = ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> B = C ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> 
 if ( B ∈ \<complex> , B , \<one> ) = C ) )" by (rule MMI_bibi12d)
   have S9: "C = 
 if ( C ∈ \<complex> , C , \<one> ) --> 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( C ∈ \<complex> , C , \<one> ) )" by (rule MMI_opreq2)
   from S9 have S10: "C = 
 if ( C ∈ \<complex> , C , \<one> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( C ∈ \<complex> , C , \<one> ) ) )" by (rule MMI_eqeq2d)
   have S11: "C = 
 if ( C ∈ \<complex> , C , \<one> ) --> 
 ( if ( B ∈ \<complex> , B , \<one> ) = 
 C <-> 
 if ( B ∈ \<complex> , B , \<one> ) = 
 if ( C ∈ \<complex> , C , \<one> ) )" by (rule MMI_eqeq2)
   from S10 S11 have S12: "C = 
 if ( C ∈ \<complex> , C , \<one> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = ( if ( A ∈ \<complex> , A , \<one> ) · C ) <-> if ( B ∈ \<complex> , B , \<one> ) = C ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( C ∈ \<complex> , C , \<one> ) ) <-> 
 if ( B ∈ \<complex> , B , \<one> ) = 
 if ( C ∈ \<complex> , C , \<one> ) ) )" by (rule MMI_bibi12d)
   have S13: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S13 have S14: "if ( A ∈ \<complex> , A , \<one> ) ∈ \<complex>" by (rule MMI_elimel)
   have S15: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S15 have S16: "if ( B ∈ \<complex> , B , \<one> ) ∈ \<complex>" by (rule MMI_elimel)
   have S17: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S17 have S18: "if ( C ∈ \<complex> , C , \<one> ) ∈ \<complex>" by (rule MMI_elimel)
   have S19: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S20: "\<one> = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( \<one> ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   from A1 have S21: "A ≠ \<zero>".
   have S22: "\<one> ≠ \<zero>" by (rule MMI_ax1ne0)
   from S19 S20 S21 S22 have S23: "if ( A ∈ \<complex> , A , \<one> ) ≠ \<zero>" by (rule MMI_keephyp)
   from S14 S16 S18 S23 have S24: "( if ( A ∈ \<complex> , A , \<one> ) · if ( B ∈ \<complex> , B , \<one> ) ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) · if ( C ∈ \<complex> , C , \<one> ) ) <-> 
 if ( B ∈ \<complex> , B , \<one> ) = 
 if ( C ∈ \<complex> , C , \<one> )" by (rule MMI_mulcan)
   from S4 S8 S12 S24 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) = ( A · C ) <-> B = C )" by (rule MMI_dedth3h)
qed

lemma (in MMIsar0) MMI_mulcant: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) = ( A · C ) <-> B = C )"
proof -
   have S1: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( A ∈ \<complex> <-> if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex> )" by (rule MMI_eleq1)
   have S2: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( B ∈ \<complex> <-> B ∈ \<complex> )" by (rule MMI_pm4_2i)
   have S3: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( C ∈ \<complex> <-> C ∈ \<complex> )" by (rule MMI_pm4_2i)
   from S1 S2 S3 have S4: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) <-> 
 ( if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) )" by (rule MMI_3anbi123d)
   have S5: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( A · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · B )" by (rule MMI_opreq1)
   have S6: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( A · C ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · C )" by (rule MMI_opreq1)
   from S5 S6 have S7: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( A · B ) = 
 ( A · C ) <-> 
 ( if ( A ≠ \<zero> , A , \<one> ) · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · C ) )" by (rule MMI_eqeq12d)
   from S7 have S8: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( ( A · B ) = ( A · C ) <-> B = C ) <-> 
 ( ( if ( A ≠ \<zero> , A , \<one> ) · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · C ) <-> 
 B = C ) )" by (rule MMI_bibi1d)
   from S4 S8 have S9: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> ( ( A · B ) = ( A · C ) <-> B = C ) ) <-> 
 ( ( if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( if ( A ≠ \<zero> , A , \<one> ) · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · C ) <-> 
 B = C ) ) )" by (rule MMI_imbi12d)
   have S10: "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S10 have S11: "( if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( if ( A ≠ \<zero> , A , \<one> ) · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · C ) <-> B = C )" by (rule MMI_mulcant2)
   from S9 S11 have S12: "A ≠ \<zero> --> 
 ( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) = ( A · C ) <-> B = C ) )" by (rule MMI_dedth)
   from S12 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) = ( A · C ) <-> B = C )" by (rule MMI_impcom)
qed

lemma (in MMIsar0) MMI_mulcan2t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · C ) = ( B · C ) <-> A = B )"
proof -
   have S1: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · C ) = ( C · A )" by (rule MMI_axmulcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · C ) = ( C · A )" by (rule MMI_3adant2)
   have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B · C ) = ( C · B )" by (rule MMI_axmulcom)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B · C ) = ( C · B )" by (rule MMI_3adant1)
   from S2 S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · C ) = 
 ( B · C ) <-> ( C · A ) = ( C · B ) )" by (rule MMI_eqeq12d)
   from S5 have S6: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · C ) = 
 ( B · C ) <-> ( C · A ) = ( C · B ) )" by (rule MMI_adantr)
   have S7: "( ( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( C · A ) = ( C · B ) <-> A = B )" by (rule MMI_mulcant)
   from S7 have S8: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( C · A ) = ( C · B ) <-> A = B ) )" by (rule MMI_ex)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( C · A ) = ( C · B ) <-> A = B ) )" by (rule MMI_3coml)
   from S9 have S10: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( C · A ) = ( C · B ) <-> A = B )" by (rule MMI_imp)
   from S6 S10 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · C ) = ( B · C ) <-> A = B )" by (rule MMI_bitrd)
qed

lemma (in MMIsar0) MMI_mul0or: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> )"
proof -
   have S1: "A ≠ \<zero> <-> ¬ ( A = \<zero> )" by (rule MMI_df_ne)
   from A1 have S2: "A ∈ \<complex>".
   from A2 have S3: "B ∈ \<complex>".
   have S4: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S2 S3 S4 have S5: "A ∈ \<complex> ∧ B ∈ \<complex> ∧ \<zero> ∈ \<complex>" by (rule MMI_3pm3_2i)
   have S6: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ \<zero> ∈ \<complex> ) ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) = ( A · \<zero> ) <-> B = \<zero> )" by (rule MMI_mulcant)
   from S5 S6 have S7: "A ≠ \<zero> --> 
 ( ( A · B ) = ( A · \<zero> ) <-> B = \<zero> )" by (rule MMI_mpan)
   from A1 have S8: "A ∈ \<complex>".
   from S8 have S9: "( A · \<zero> ) = \<zero>" by (rule MMI_mul01)
   from S9 have S10: "( A · B ) = ( A · \<zero> ) <-> ( A · B ) = \<zero>" by (rule MMI_eqeq2i)
   from S7 S10 have S11: "A ≠ \<zero> --> ( ( A · B ) = \<zero> <-> B = \<zero> )" by (rule MMI_syl5bbr)
   from S11 have S12: "A ≠ \<zero> --> ( ( A · B ) = \<zero> --> B = \<zero> )" by (rule MMI_biimpd)
   from S1 S12 have S13: "¬ ( A = 
 \<zero> ) --> ( ( A · B ) = \<zero> --> B = \<zero> )" by (rule MMI_sylbir)
   from S13 have S14: "( A · B ) = 
 \<zero> --> ( ¬ ( A = \<zero> ) --> B = \<zero> )" by (rule MMI_com12)
   from S14 have S15: "( A · B ) = \<zero> --> ( A = \<zero> ∨ B = \<zero> )" by (rule MMI_orrd)
   have S16: "A = \<zero> --> ( A · B ) = ( \<zero> · B )" by (rule MMI_opreq1)
   from A2 have S17: "B ∈ \<complex>".
   from S17 have S18: "( \<zero> · B ) = \<zero>" by (rule MMI_mul02)
   from S16 S18 have S19: "A = \<zero> --> ( A · B ) = \<zero>" by (rule MMI_syl6eq)
   have S20: "B = \<zero> --> ( A · B ) = ( A · \<zero> )" by (rule MMI_opreq2)
   from S9 have S21: "( A · \<zero> ) = \<zero>" .
   from S20 S21 have S22: "B = \<zero> --> ( A · B ) = \<zero>" by (rule MMI_syl6eq)
   from S19 S22 have S23: "( A = \<zero> ∨ B = \<zero> ) --> ( A · B ) = \<zero>" by (rule MMI_jaoi)
   from S15 S23 show "( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> )" by (rule MMI_impbi)
qed

lemma (in MMIsar0) MMI_msq0: assumes A1: "A ∈ \<complex>"   
   shows "( A · A ) = \<zero> <-> A = \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( A · A ) = \<zero> <-> ( A = \<zero> ∨ A = \<zero> )" by (rule MMI_mul0or)
   have S4: "( A = \<zero> ∨ A = \<zero> ) <-> A = \<zero>" by (rule MMI_oridm)
   from S3 S4 show "( A · A ) = \<zero> <-> A = \<zero>" by (rule MMI_bitr)
qed

lemma (in MMIsar0) MMI_mul0ort: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> ) )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A · B ) = 
 \<zero> <-> ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = \<zero> )" by (rule MMI_eqeq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A = \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) = \<zero> )" by (rule MMI_eqeq1)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A = \<zero> ∨ B = \<zero> ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) = \<zero> ∨ B = \<zero> ) )" by (rule MMI_orbi1d)
   from S2 S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 \<zero> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) = 
 \<zero> ∨ B = \<zero> ) ) )" by (rule MMI_bibi12d)
   have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S6 have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 \<zero> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) = 
 \<zero> )" by (rule MMI_eqeq1d)
   have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B = \<zero> <-> if ( B ∈ \<complex> , B , \<zero> ) = \<zero> )" by (rule MMI_eqeq1)
   from S8 have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) = \<zero> ∨ B = \<zero> ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) = 
 \<zero> ∨ if ( B ∈ \<complex> , B , \<zero> ) = \<zero> ) )" by (rule MMI_orbi2d)
   from S7 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = \<zero> <-> ( if ( A ∈ \<complex> , A , \<zero> ) = \<zero> ∨ B = \<zero> ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) = 
 \<zero> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) = 
 \<zero> ∨ if ( B ∈ \<complex> , B , \<zero> ) = \<zero> ) ) )" by (rule MMI_bibi12d)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S13: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S13 have S14: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S12 S14 have S15: "( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) = 
 \<zero> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) = 
 \<zero> ∨ if ( B ∈ \<complex> , B , \<zero> ) = \<zero> )" by (rule MMI_mul0or)
   from S5 S10 S15 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> ) )" by (rule MMI_dedth2h)
qed;

(********* 151-153**************************)

lemma (in MMIsar0) MMI_muln0bt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A ≠ \<zero> ∧ B ≠ \<zero> ) <-> ( A · B ) ≠ \<zero> )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A · B ) = \<zero> <-> ( A = \<zero> ∨ B = \<zero> ) )" by (rule MMI_mul0ort)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ¬ ( ( A · B ) = \<zero> ) <-> 
 ¬ ( ( A = \<zero> ∨ B = \<zero> ) ) )" by (rule MMI_negbid)
   have S3: "¬ ( ( A = \<zero> ∨ B = \<zero> ) ) <-> 
 ( ¬ ( A = \<zero> ) ∧ ¬ ( B = \<zero> ) )" by (rule MMI_ioran)
   from S2 S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( ¬ ( A = \<zero> ) ∧ ¬ ( B = \<zero> ) ) <-> 
 ¬ ( ( A · B ) = \<zero> ) )" by (rule MMI_syl6rbb)
   have S5: "A ≠ \<zero> <-> ¬ ( A = \<zero> )" by (rule MMI_df_ne)
   have S6: "B ≠ \<zero> <-> ¬ ( B = \<zero> )" by (rule MMI_df_ne)
   from S5 S6 have S7: "( A ≠ \<zero> ∧ B ≠ \<zero> ) <-> 
 ( ¬ ( A = \<zero> ) ∧ ¬ ( B = \<zero> ) )" by (rule MMI_anbi12i)
   have S8: "( A · B ) ≠ \<zero> <-> ¬ ( ( A · B ) = \<zero> )" by (rule MMI_df_ne)
   from S4 S7 S8 show "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A ≠ \<zero> ∧ B ≠ \<zero> ) <-> ( A · B ) ≠ \<zero> )" by (rule MMI_3bitr4g)
qed

lemma (in MMIsar0) MMI_muln0: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>" and
    A4: "B ≠ \<zero>"   
   shows "( A · B ) ≠ \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "A ≠ \<zero>".
   from A4 have S4: "B ≠ \<zero>".
   from S3 S4 have S5: "A ≠ \<zero> ∧ B ≠ \<zero>" by (rule MMI_pm3_2i)
   have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A ≠ \<zero> ∧ B ≠ \<zero> ) <-> ( A · B ) ≠ \<zero> )" by (rule MMI_muln0bt)
   from S5 S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) ≠ \<zero>" by (rule MMI_mpbii)
   from S1 S2 S7 show "( A · B ) ≠ \<zero>" by (rule MMI_mp2an)
qed

lemma (in MMIsar0) MMI_receu: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>"   
   shows "∃! x . x ∈ \<complex> ∧ ( A · x ) = B"
proof -
  { fix x y
    have S1: "x = y --> ( A · x ) = ( A · y )" by (rule MMI_opreq2)
    from S1 have S2: "x = y --> ( ( A · x ) = B <-> ( A · y ) = B )" 
      by (rule MMI_eqeq1d)
  } then have S2: "∀ x y. x = y --> ( ( A · x ) = B <-> ( A · y ) = B )"
    by simp;
    from S2 have S3: 
      "( ∃! x . x ∈ \<complex> ∧ ( A · x ) =  B ) <-> 
      ( ( ∃ x ∈ \<complex> . ( A · x ) = B ) ∧ 
      ( ∀ x ∈ \<complex> . ∀ y ∈ \<complex> . ( ( ( A · x ) = B ∧ ( A · y ) = B ) --> x = y ) ) )" 
      by (rule MMI_reu4)
    from A1 have S4: "A ∈ \<complex>".
    from A3 have S5: "A ≠ \<zero>".
   from S4 S5 have S6: "∃ y ∈ \<complex> . ( A · y ) = \<one>" by (rule MMI_recex)
   from A2 have S7: "B ∈ \<complex>".
   { fix y
     have S8: "( y ∈ \<complex> ∧ B ∈ \<complex> ) --> ( y · B ) ∈ \<complex>" by (rule MMI_axmulcl)
     from S7 S8 have S9: "y ∈ \<complex> --> ( y · B ) ∈ \<complex>" by (rule MMI_mpan2)
     have S10: "( y · B ) ∈ \<complex> <-> 
       ( ∃ x ∈ \<complex> . x = ( y · B ) )" by (rule MMI_risset)
     from S9 S10 have S11: "y ∈ \<complex> --> ( ∃ x ∈ \<complex> . x = ( y · B ) )" 
       by (rule MMI_sylib)
     { fix x
       have S12: "x =  ( y · B ) --> 
	 ( A · x ) = ( A · ( y · B ) )" by (rule MMI_opreq2)
       from A1 have S13: "A ∈ \<complex>".
       from A2 have S14: "B ∈ \<complex>".
       have S15: "( A ∈ \<complex> ∧ y ∈ \<complex> ∧ B ∈ \<complex> ) --> 
	 ( ( A · y ) · B ) = ( A · ( y · B ) )" by (rule MMI_axmulass)
       from S13 S14 S15 have S16: "y ∈ \<complex> --> 
	 ( ( A · y ) · B ) = ( A · ( y · B ) )" by (rule MMI_mp3an13)
       from S16 have S17: "y ∈ \<complex> --> 
	 ( A · ( y · B ) ) = ( ( A · y ) · B )" by (rule MMI_eqcomd)
       from S12 S17 have S18: "( y ∈ \<complex> ∧ x = 
	 ( y · B ) ) --> 
	 ( A · x ) = ( ( A · y ) · B )" by (rule MMI_sylan9eqr)
       have S19: "( A · y ) = 
	 \<one> --> ( ( A · y ) · B ) = ( \<one> · B )" by (rule MMI_opreq1)
       from A2 have S20: "B ∈ \<complex>".
       from S20 have S21: "( \<one> · B ) = B" by (rule MMI_mulid2)
       from S19 S21 have S22: "( A · y ) = \<one> --> ( ( A · y ) · B ) = B" 
	 by (rule MMI_syl6eq)
       from S18 S22 have S23: 
	 "( ( A · y ) = \<one> ∧ ( y ∈ \<complex> ∧ x = 
	 ( y · B ) ) ) --> ( A · x ) = B" by (rule MMI_sylan9eqr)
       from S23 have S24: 
	 "( A · y ) = \<one> -->  ( y ∈ \<complex> --> 
	 ( x = ( y · B ) --> ( A · x ) = B ) )" by (rule MMI_exp32)
       from S24 have S25: "( y ∈ \<complex> ∧ ( A · y ) = 
	 \<one> ) --> 
	 ( x = ( y · B ) --> ( A · x ) = B )" by (rule MMI_impcom)
       from S25 have
	 "( y ∈ \<complex> ∧ ( A · y ) = \<one> ) --> ( x ∈ \<complex> --> 
	 ( x = ( y · B ) --> ( A · x ) = B ) )" by (rule MMI_a1d)
       } then have S26: 
	 "∀ x . ( y ∈ \<complex> ∧ ( A · y ) = \<one> ) --> ( x ∈ \<complex> --> 
	 ( x = ( y · B ) --> ( A · x ) = B ) )" by simp;
       from S26 have S27: 
	 "( y ∈ \<complex> ∧ ( A · y ) = \<one> ) --> 
	 ( ∀ x ∈ \<complex> . ( x = ( y · B ) --> ( A · x ) = B ) )" by (rule MMI_r19_21aiv)
       from S27 have S28: "y ∈ \<complex> --> 
	 ( ( A · y ) =	\<one> --> 
	 ( ∀ x ∈ \<complex> . ( x = ( y · B ) --> ( A · x ) = B ) ) )" by (rule MMI_ex)
       have S29: "( ∀ x ∈ \<complex> . ( x = ( y · B ) --> ( A · x ) = B ) ) --> 
	 ( ( ∃ x ∈ \<complex> . x = ( y · B ) ) --> 
	 ( ∃ x ∈ \<complex> . ( A · x ) = B ) )" by (rule MMI_r19_22)
       from S28 S29 have S30: 
	 "y ∈ \<complex> --> ( ( A · y ) =  \<one> --> 
	 ( ( ∃ x ∈ \<complex> . x = ( y · B ) ) --> 
	 ( ∃ x ∈ \<complex> . ( A · x ) = B ) ) )" by (rule MMI_syl6)
       from S11 S30 have 
	 "y ∈ \<complex> -->  ( ( A · y ) =  \<one> --> ( ∃ x ∈ \<complex> . ( A · x ) = B ) )" 
	 by (rule MMI_mpid)
       } then have S31: 
	   "∀ y . y ∈ \<complex> -->  ( ( A · y ) =  \<one> --> ( ∃ x ∈ \<complex> . ( A · x ) = B ) )" 
	 by simp;
       from S31 have S32: "( ∃ y ∈ \<complex> . ( A · y ) = 
	 \<one> ) --> ( ∃ x ∈ \<complex> . ( A · x ) = B )" by (rule MMI_r19_23aiv);
       from S6 S32 have S33: "∃ x ∈ \<complex> . ( A · x ) = B" by (rule MMI_ax_mp)
       from A1 have S34: "A ∈ \<complex>".
       from A3 have S35: "A ≠ \<zero>".
       { fix x y
	 from S35 have S36: "( A ∈ \<complex> ∧ x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
	   ( ( A · x ) = ( A · y ) <-> x = y )" by (rule MMI_mulcant2)
	 have S37: 
	   "( ( A · x ) =   B ∧ ( A · y ) = 
	   B ) --> ( A · x ) = ( A · y )" by (rule MMI_eqtr3t)
	 from S36 S37 have S38: "( A ∈ \<complex> ∧ x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
	   ( ( ( A · x ) = B ∧ ( A · y ) = B ) --> 
	   x = y )" by (rule MMI_syl5bi)
	 from S34 S38 have "( x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
	   ( ( ( A · x ) = B ∧ ( A · y ) = B ) --> 
	   x = y )" by (rule MMI_mp3an1)
       } then have  S39: "∀ x y. ( x ∈ \<complex> ∧ y ∈ \<complex> ) --> 
	   ( ( ( A · x ) = B ∧ ( A · y ) = B ) --> 
	   x = y )" by auto;
       from S39 have S40: 
	 "∀ x ∈ \<complex> . ∀ y ∈ \<complex> . ( ( ( A · x ) = B ∧ ( A · y ) = B ) --> 
	 x = y )" by (rule MMI_rgen2)
       from S3 S33 S40 show "∃! x . x ∈ \<complex> ∧ ( A · x ) = B" by (rule MMI_mpbir2an)
qed;

(** this is proven by definition rather than importing the Metamath proof **)

lemma (in MMIsar0) MMI_divval: assumes "A ∈ \<complex>"  "B ∈ \<complex>" "B ≠ \<zero>"
  shows "A \<cdiv> B =  \<Union> { x ∈ \<complex> . B · x = A }"
  using cdiv_def by simp;

(****** 154-160***********************************)


lemma (in MMIsar0) MMI_divmul: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "B ≠ \<zero>"   
   shows "( A \<cdiv> B ) = C <-> ( B · C ) = A"
proof -
   from A3 have S1: "C ∈ \<complex>".
   { fix x
     have S2: "x = 
       C --> ( ( A \<cdiv> B ) = x <-> ( A \<cdiv> B ) = C )" by (rule MMI_eqeq2)
     have S3: "x = C --> ( B · x ) = ( B · C )" by (rule MMI_opreq2)
     from S3 have S4: "x = 
       C --> ( ( B · x ) = A <-> ( B · C ) = A )" by (rule MMI_eqeq1d)
     from S2 S4 have  
       "x = C --> 
       ( ( ( A \<cdiv> B ) = x <-> ( B · x ) = A ) <-> 
       ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) )" by (rule MMI_bibi12d)
   } then have S5: "∀x. x = C --> 
       ( ( ( A \<cdiv> B ) = x <-> ( B · x ) = A ) <-> 
       ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) )"
     by simp;
   from A2 have S6: "B ∈ \<complex>".
   from A1 have S7: "A ∈ \<complex>".
   from A4 have S8: "B ≠ \<zero>".
   from S6 S7 S8 have S9: "∃! x . x ∈ \<complex> ∧ ( B · x ) = A" by (rule MMI_receu)
   { fix x
     have S10: "( x ∈ \<complex> ∧ ( ∃! x . x ∈ \<complex> ∧ ( B · x ) = A ) ) --> 
       ( ( B · x ) = 
       A <-> \<Union> { x ∈ \<complex> . ( B · x ) = A } = x )" by (rule MMI_reuuni1);
     from S9 S10 have  
       "x ∈ \<complex> --> ( ( B · x ) =  A <-> \<Union> { x ∈ \<complex> . ( B · x ) = A } = x )" 
       by (rule MMI_mpan2)
   } then have S11: 
       "∀ x. x ∈ \<complex> --> ( ( B · x ) =  A <-> \<Union> { x ∈ \<complex> . ( B · x ) = A } = x )" 
     by blast;
   from A1 have S12: "A ∈ \<complex>".
   from A2 have S13: "B ∈ \<complex>".
   from A4 have S14: "B ≠ \<zero>".
   from S12 S13 S14 have S15: "( A \<cdiv> B ) = 
     \<Union> { x ∈ \<complex> . ( B · x ) = A }" by (rule MMI_divval)
   from S15 have S16: "∀ x. ( A \<cdiv> B ) = 
     x <-> \<Union> { x ∈ \<complex> . ( B · x ) = A } = x" by simp;(*rule MMI_eqeq1i*)
   from S11 S16 have S17: "∀ x. x ∈ \<complex> --> 
     ( ( A \<cdiv> B ) = x <-> ( B · x ) = A )" by (rule MMI_syl6rbbr);
   from S5 S17 have S18: "C ∈ \<complex> --> 
     ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )" by (rule MMI_vtoclga)
   from S1 S18 show "( A \<cdiv> B ) = C <-> ( B · C ) = A" by (rule MMI_ax_mp)
qed;

lemma (in MMIsar0) MMI_divmulz: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "B ≠ \<zero> --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )"
proof -
   have S1: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( A \<cdiv> B ) = 
 ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) )" by (rule MMI_opreq2)
   from S1 have S2: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( ( A \<cdiv> B ) = 
 C <-> ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) = C )" by (rule MMI_eqeq1d)
   have S3: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( B · C ) = 
 ( if ( B ≠ \<zero> , B , \<one> ) · C )" by (rule MMI_opreq1)
   from S3 have S4: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( ( B · C ) = 
 A <-> ( if ( B ≠ \<zero> , B , \<one> ) · C ) = A )" by (rule MMI_eqeq1d)
   from S2 S4 have S5: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) <-> 
 ( ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) = 
 C <-> 
 ( if ( B ≠ \<zero> , B , \<one> ) · C ) = A ) )" by (rule MMI_bibi12d)
   from A1 have S6: "A ∈ \<complex>".
   from A2 have S7: "B ∈ \<complex>".
   have S8: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S7 S8 have S9: "if ( B ≠ \<zero> , B , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   from A3 have S10: "C ∈ \<complex>".
   have S11: "if ( B ≠ \<zero> , B , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S6 S9 S10 S11 have S12: "( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) = 
 C <-> ( if ( B ≠ \<zero> , B , \<one> ) · C ) = A" by (rule MMI_divmul)
   from S5 S12 show "B ≠ \<zero> --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_divmult: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A \<cdiv> B ) = 
 C <-> ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = C )" by (rule MMI_eqeq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( B · C ) = 
 A <-> ( B · C ) = if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq2)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 C <-> 
 ( B · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_bibi12d)
   from S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) ) <-> 
 ( B ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 C <-> 
 ( B · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) ) )" by (rule MMI_imbi2d)
   have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B ≠ \<zero> <-> if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 C <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 C )" by (rule MMI_eqeq1d)
   have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B · C ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) · C )" by (rule MMI_opreq1)
   from S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( B · C ) = 
 if ( A ∈ \<complex> , A , \<zero> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = 
 if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq1d)
   from S8 S10 have S11: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = C <-> ( B · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 C <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = 
 if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_bibi12d)
   from S6 S11 have S12: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = C <-> ( B · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 C <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = 
 if ( A ∈ \<complex> , A , \<zero> ) ) ) )" by (rule MMI_imbi12d)
   have S13: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 C <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_eqeq2)
   have S14: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) · if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_opreq2)
   from S14 have S15: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = 
 if ( A ∈ \<complex> , A , \<zero> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · if ( C ∈ \<complex> , C , \<zero> ) ) = 
 if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_eqeq1d)
   from S13 S15 have S16: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = C <-> ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 if ( C ∈ \<complex> , C , \<zero> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · if ( C ∈ \<complex> , C , \<zero> ) ) = 
 if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_bibi12d)
   from S16 have S17: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = C <-> ( if ( B ∈ \<complex> , B , \<zero> ) · C ) = if ( A ∈ \<complex> , A , \<zero> ) ) ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 if ( C ∈ \<complex> , C , \<zero> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · if ( C ∈ \<complex> , C , \<zero> ) ) = 
 if ( A ∈ \<complex> , A , \<zero> ) ) ) )" by (rule MMI_imbi2d)
   have S18: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S18 have S19: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S20: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S20 have S21: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S22: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S22 have S23: "if ( C ∈ \<complex> , C , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S19 S21 S23 have S24: "if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 if ( C ∈ \<complex> , C , \<zero> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) · if ( C ∈ \<complex> , C , \<zero> ) ) = 
 if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_divmulz)
   from S5 S12 S17 S24 have S25: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A ) )" by (rule MMI_dedth3h)
   from S25 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )" by (rule MMI_imp)
qed

lemma (in MMIsar0) MMI_divmul2t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> A = ( B · C ) )"
proof -
   have S1: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> ( B · C ) = A )" by (rule MMI_divmult)
   have S2: "( B · C ) = A <-> A = ( B · C )" by (rule MMI_eqcom)
   from S1 S2 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> A = ( B · C ) )" by (rule MMI_syl6bb)
qed

lemma (in MMIsar0) MMI_divmul3t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> A = ( C · B ) )"
proof -
   have S1: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> A = ( B · C ) )" by (rule MMI_divmul2t)
   have S2: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B · C ) = ( C · B )" by (rule MMI_axmulcom)
   from S2 have S3: "( B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A = ( B · C ) <-> A = ( C · B ) )" by (rule MMI_eqeq2d)
   from S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A = ( B · C ) <-> A = ( C · B ) )" by (rule MMI_3adant1)
   from S4 have S5: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( A = ( B · C ) <-> A = ( C · B ) )" by (rule MMI_adantr)
   from S1 S5 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = C <-> A = ( C · B ) )" by (rule MMI_bitrd)
qed

lemma (in MMIsar0) MMI_divcl: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "B ≠ \<zero>"   
   shows "( A \<cdiv> B ) ∈ \<complex>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "B ≠ \<zero>".
   from S1 S2 S3 have S4: "( A \<cdiv> B ) = 
 \<Union> { x ∈ \<complex> . ( B · x ) = A }" by (rule MMI_divval)
   from A2 have S5: "B ∈ \<complex>".
   from A1 have S6: "A ∈ \<complex>".
   from A3 have S7: "B ≠ \<zero>".
   from S5 S6 S7 have S8: "∃! x . x ∈ \<complex> ∧ ( B · x ) = A" by (rule MMI_receu)
   have S9: "( ∃! x . x ∈ \<complex> ∧ ( B · x ) = 
 A ) --> \<Union> { x ∈ \<complex> . ( B · x ) = A } ∈ \<complex>" by (rule MMI_reucl)
   from S8 S9 have S10: "\<Union> { x ∈ \<complex> . ( B · x ) = A } ∈ \<complex>" by (rule MMI_ax_mp)
   from S4 S10 show "( A \<cdiv> B ) ∈ \<complex>" by (rule MMI_eqeltr)
qed

lemma (in MMIsar0) MMI_divclz: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "B ≠ \<zero> --> ( A \<cdiv> B ) ∈ \<complex>"
proof -
   have S1: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( A \<cdiv> B ) = 
 ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) )" by (rule MMI_opreq2)
   from S1 have S2: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( ( A \<cdiv> B ) ∈ \<complex> <-> 
 ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) ∈ \<complex> )" by (rule MMI_eleq1d)
   from A1 have S3: "A ∈ \<complex>".
   from A2 have S4: "B ∈ \<complex>".
   have S5: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S4 S5 have S6: "if ( B ≠ \<zero> , B , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   have S7: "if ( B ≠ \<zero> , B , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S3 S6 S7 have S8: "( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) ∈ \<complex>" by (rule MMI_divcl)
   from S2 S8 show "B ≠ \<zero> --> ( A \<cdiv> B ) ∈ \<complex>" by (rule MMI_dedth)
qed;

(************** 161-170 *****************************)


lemma (in MMIsar0) MMI_divclt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) ∈ \<complex>"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A \<cdiv> B ) ∈ \<complex> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) ∈ \<complex> )" by (rule MMI_eleq1d)
   from S2 have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( A \<cdiv> B ) ∈ \<complex> ) <-> 
 ( B ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) ∈ \<complex> ) )" by (rule MMI_imbi2d)
   have S4: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B ≠ \<zero> <-> if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S5: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S5 have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) ∈ \<complex> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) ∈ \<complex> )" by (rule MMI_eleq1d)
   from S4 S6 have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) ∈ \<complex> ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) ∈ \<complex> ) )" by (rule MMI_imbi12d)
   have S8: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S8 have S9: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S10: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S10 have S11: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S9 S11 have S12: "if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) ∈ \<complex>" by (rule MMI_divclz)
   from S3 S7 S12 have S13: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> ( A \<cdiv> B ) ∈ \<complex> )" by (rule MMI_dedth2h)
   from S13 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) ∈ \<complex>" by (rule MMI_3impia)
qed

lemma (in MMIsar0) MMI_reccl: assumes A1: "A ∈ \<complex>" and
    A2: "A ≠ \<zero>"   
   shows "( \<one> \<cdiv> A ) ∈ \<complex>"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S2: "A ∈ \<complex>".
   from A2 have S3: "A ≠ \<zero>".
   from S1 S2 S3 show "( \<one> \<cdiv> A ) ∈ \<complex>" by (rule MMI_divcl)
qed

lemma (in MMIsar0) MMI_recclz: assumes A1: "A ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( \<one> \<cdiv> A ) ∈ \<complex>"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 show "A ≠ \<zero> --> ( \<one> \<cdiv> A ) ∈ \<complex>" by (rule MMI_divclz)
qed

lemma (in MMIsar0) MMI_recclt: 
   shows "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( \<one> \<cdiv> A ) ∈ \<complex>"
proof -
   have S1: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S2: "( \<one> ∈ \<complex> ∧ A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( \<one> \<cdiv> A ) ∈ \<complex>" by (rule MMI_divclt)
   from S1 S2 show "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( \<one> \<cdiv> A ) ∈ \<complex>" by (rule MMI_mp3an1)
qed

lemma (in MMIsar0) MMI_divcan2: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>"   
   shows "( A · ( B \<cdiv> A ) ) = B"
proof -
   have S1: "( B \<cdiv> A ) = ( B \<cdiv> A )" by (rule MMI_eqid)
   from A2 have S2: "B ∈ \<complex>".
   from A1 have S3: "A ∈ \<complex>".
   from A2 have S4: "B ∈ \<complex>".
   from A1 have S5: "A ∈ \<complex>".
   from A3 have S6: "A ≠ \<zero>".
   from S4 S5 S6 have S7: "( B \<cdiv> A ) ∈ \<complex>" by (rule MMI_divcl)
   from A3 have S8: "A ≠ \<zero>".
   from S2 S3 S7 S8 have S9: "( B \<cdiv> A ) = 
 ( B \<cdiv> A ) <-> ( A · ( B \<cdiv> A ) ) = B" by (rule MMI_divmul)
   from S1 S9 show "( A · ( B \<cdiv> A ) ) = B" by (rule MMI_mpbi)
qed

lemma (in MMIsar0) MMI_divcan1: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>"   
   shows "( ( B \<cdiv> A ) · A ) = B"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from A3 have S3: "A ≠ \<zero>".
   from S1 S2 S3 have S4: "( B \<cdiv> A ) ∈ \<complex>" by (rule MMI_divcl)
   from A1 have S5: "A ∈ \<complex>".
   from S4 S5 have S6: "( ( B \<cdiv> A ) · A ) = ( A · ( B \<cdiv> A ) )" by (rule MMI_mulcom)
   from A1 have S7: "A ∈ \<complex>".
   from A2 have S8: "B ∈ \<complex>".
   from A3 have S9: "A ≠ \<zero>".
   from S7 S8 S9 have S10: "( A · ( B \<cdiv> A ) ) = B" by (rule MMI_divcan2)
   from S6 S10 show "( ( B \<cdiv> A ) · A ) = B" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_divcan1z: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( ( B \<cdiv> A ) · A ) = B"
proof -
   have S1: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( B \<cdiv> A ) = 
 ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) )" by (rule MMI_opreq2)
   have S2: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 A = if ( A ≠ \<zero> , A , \<one> )" by (rule MMI_id)
   from S1 S2 have S3: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( B \<cdiv> A ) · A ) = 
 ( ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) · if ( A ≠ \<zero> , A , \<one> ) )" by (rule MMI_opreq12d)
   from S3 have S4: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( ( B \<cdiv> A ) · A ) = 
 B <-> 
 ( ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) · if ( A ≠ \<zero> , A , \<one> ) ) = 
 B )" by (rule MMI_eqeq1d)
   from A1 have S5: "A ∈ \<complex>".
   have S6: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S5 S6 have S7: "if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   from A2 have S8: "B ∈ \<complex>".
   have S9: "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S7 S8 S9 have S10: "( ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) · if ( A ≠ \<zero> , A , \<one> ) ) = 
 B" by (rule MMI_divcan1)
   from S4 S10 show "A ≠ \<zero> --> ( ( B \<cdiv> A ) · A ) = B" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_divcan2z: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( A · ( B \<cdiv> A ) ) = B"
proof -
   have S1: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 A = if ( A ≠ \<zero> , A , \<one> )" by (rule MMI_id)
   have S2: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( B \<cdiv> A ) = 
 ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) )" by (rule MMI_opreq2)
   from S1 S2 have S3: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( A · ( B \<cdiv> A ) ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) )" by (rule MMI_opreq12d)
   from S3 have S4: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( A · ( B \<cdiv> A ) ) = 
 B <-> 
 ( if ( A ≠ \<zero> , A , \<one> ) · ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) ) = 
 B )" by (rule MMI_eqeq1d)
   from A1 have S5: "A ∈ \<complex>".
   have S6: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S5 S6 have S7: "if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   from A2 have S8: "B ∈ \<complex>".
   have S9: "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S7 S8 S9 have S10: "( if ( A ≠ \<zero> , A , \<one> ) · ( B \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) ) = 
 B" by (rule MMI_divcan2)
   from S4 S10 show "A ≠ \<zero> --> ( A · ( B \<cdiv> A ) ) = B" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_divcan1t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( B \<cdiv> A ) · A ) = B"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( B \<cdiv> A ) = 
 ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq2)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 A = if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_id)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( B \<cdiv> A ) · A ) = 
 ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq12d)
   from S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( B \<cdiv> A ) · A ) = 
 B <-> 
 ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B )" by (rule MMI_eqeq1d)
   from S1 S5 have S6: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A ≠ \<zero> --> ( ( B \<cdiv> A ) · A ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B ) )" by (rule MMI_imbi12d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq1)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq1d)
   have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 B = if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_id)
   from S8 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B <-> 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_eqeq12d)
   from S10 have S11: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> ( ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_imbi2d)
   have S12: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S12 have S13: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S14: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S14 have S15: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S13 S15 have S16: "if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) · if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_divcan1z)
   from S6 S11 S16 have S17: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A ≠ \<zero> --> ( ( B \<cdiv> A ) · A ) = B )" by (rule MMI_dedth2h)
   from S17 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( B \<cdiv> A ) · A ) = B" by (rule MMI_3impia)
qed

lemma (in MMIsar0) MMI_divcan2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> A ) ) = B"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 A = if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_id)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( B \<cdiv> A ) = 
 ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq2)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · ( B \<cdiv> A ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_opreq12d)
   from S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A · ( B \<cdiv> A ) ) = 
 B <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 B )" by (rule MMI_eqeq1d)
   from S1 S5 have S6: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A ≠ \<zero> --> ( A · ( B \<cdiv> A ) ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 B ) )" by (rule MMI_imbi12d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq1)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_opreq2d)
   have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 B = if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_id)
   from S8 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 B <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_eqeq12d)
   from S10 have S11: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> ( if ( A ∈ \<complex> , A , \<zero> ) · ( B \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_imbi2d)
   have S12: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S12 have S13: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S14: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S14 have S15: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S13 S15 have S16: "if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_divcan2z)
   from S6 S11 S16 have S17: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A ≠ \<zero> --> ( A · ( B \<cdiv> A ) ) = B )" by (rule MMI_dedth2h)
   from S17 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> A ) ) = B" by (rule MMI_3impia)
qed;

(************** 171-180**************************)

lemma (in MMIsar0) MMI_divne0bt: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A ≠ \<zero> <-> ( A \<cdiv> B ) ≠ \<zero> )"
proof -
   have S1: "B ∈ \<complex> --> ( B · \<zero> ) = \<zero>" by (rule MMI_mul01t)
   from S1 have S2: "B ∈ \<complex> --> ( ( B · \<zero> ) = A <-> \<zero> = A )" by (rule MMI_eqeq1d)
   have S3: "A = \<zero> <-> \<zero> = A" by (rule MMI_eqcom)
   from S2 S3 have S4: "B ∈ \<complex> --> ( A = \<zero> <-> ( B · \<zero> ) = A )" by (rule MMI_syl6rbbrA);
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A = \<zero> <-> ( B · \<zero> ) = A )" by (rule MMI_3ad2ant2)
   have S6: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ \<zero> ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = \<zero> <-> ( B · \<zero> ) = A )" by (rule MMI_divmult)
   from S6 S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = \<zero> <-> ( B · \<zero> ) = A )" by (rule MMI_mp3anl3)
   from S8 have S9: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) = \<zero> <-> ( B · \<zero> ) = A )" by (rule MMI_3impa)
   from S5 S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A = \<zero> <-> ( A \<cdiv> B ) = \<zero> )" by (rule MMI_bitr4d)
   from S10 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A ≠ \<zero> <-> ( A \<cdiv> B ) ≠ \<zero> )" by (rule MMI_eqneqd)
qed

lemma (in MMIsar0) MMI_divne0: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>" and
    A4: "B ≠ \<zero>"   
   shows "( A \<cdiv> B ) ≠ \<zero>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A4 have S3: "B ≠ \<zero>".
   from A3 have S4: "A ≠ \<zero>".
   have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A ≠ \<zero> <-> ( A \<cdiv> B ) ≠ \<zero> )" by (rule MMI_divne0bt)
   from S4 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) ≠ \<zero>" by (rule MMI_mpbii)
   from S1 S2 S3 S6 show "( A \<cdiv> B ) ≠ \<zero>" by (rule MMI_mp3an)
qed

lemma (in MMIsar0) MMI_recne0z: assumes A1: "A ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( \<one> \<cdiv> A ) ≠ \<zero>"
proof -
   have S1: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( \<one> \<cdiv> A ) = 
 ( \<one> \<cdiv> if ( A ≠ \<zero> , A , \<one> ) )" by (rule MMI_opreq2)
   from S1 have S2: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( \<one> \<cdiv> A ) ≠ \<zero> <-> 
 ( \<one> \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) ≠ \<zero> )" by (rule MMI_neeq1d)
   have S3: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A1 have S4: "A ∈ \<complex>".
   have S5: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S4 S5 have S6: "if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   have S7: "\<one> ≠ \<zero>" by (rule MMI_ax1ne0)
   have S8: "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S3 S6 S7 S8 have S9: "( \<one> \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) ≠ \<zero>" by (rule MMI_divne0)
   from S2 S9 show "A ≠ \<zero> --> ( \<one> \<cdiv> A ) ≠ \<zero>" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_recne0t: 
   shows "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( \<one> \<cdiv> A ) ≠ \<zero>"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<one> \<cdiv> A ) = 
 ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq2)
   from S2 have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( \<one> \<cdiv> A ) ≠ \<zero> <-> 
 ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ≠ \<zero> )" by (rule MMI_neeq1d)
   from S1 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A ≠ \<zero> --> ( \<one> \<cdiv> A ) ≠ \<zero> ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ≠ \<zero> ) )" by (rule MMI_imbi12d)
   have S5: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S5 have S6: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S6 have S7: "if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ≠ \<zero>" by (rule MMI_recne0z)
   from S4 S7 have S8: "A ∈ \<complex> --> ( A ≠ \<zero> --> ( \<one> \<cdiv> A ) ≠ \<zero> )" by (rule MMI_dedth)
   from S8 show "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( \<one> \<cdiv> A ) ≠ \<zero>" by (rule MMI_imp)
qed

lemma (in MMIsar0) MMI_recid: assumes A1: "A ∈ \<complex>" and
    A2: "A ≠ \<zero>"   
   shows "( A · ( \<one> \<cdiv> A ) ) = \<one>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A2 have S3: "A ≠ \<zero>".
   from S1 S2 S3 show "( A · ( \<one> \<cdiv> A ) ) = \<one>" by (rule MMI_divcan2)
qed

lemma (in MMIsar0) MMI_recidz: assumes A1: "A ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( A · ( \<one> \<cdiv> A ) ) = \<one>"
proof -
   from A1 have S1: "A ∈ \<complex>".
   have S2: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S1 S2 show "A ≠ \<zero> --> ( A · ( \<one> \<cdiv> A ) ) = \<one>" by (rule MMI_divcan2z)
qed

lemma (in MMIsar0) MMI_recidt: 
   shows "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( A · ( \<one> \<cdiv> A ) ) = \<one>"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 A = if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_id)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( \<one> \<cdiv> A ) = 
 ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq2)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · ( \<one> \<cdiv> A ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) )" by (rule MMI_opreq12d)
   from S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A · ( \<one> \<cdiv> A ) ) = 
 \<one> <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 \<one> )" by (rule MMI_eqeq1d)
   from S1 S5 have S6: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A ≠ \<zero> --> ( A · ( \<one> \<cdiv> A ) ) = \<one> ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 \<one> ) )" by (rule MMI_imbi12d)
   have S7: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S7 have S8: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S8 have S9: "if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) ) = 
 \<one>" by (rule MMI_recidz)
   from S6 S9 have S10: "A ∈ \<complex> --> 
 ( A ≠ \<zero> --> ( A · ( \<one> \<cdiv> A ) ) = \<one> )" by (rule MMI_dedth)
   from S10 show "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( A · ( \<one> \<cdiv> A ) ) = \<one>" by (rule MMI_imp)
qed

lemma (in MMIsar0) MMI_recid2t: 
   shows "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( \<one> \<cdiv> A ) · A ) = \<one>"
proof -
   have S1: "( ( \<one> \<cdiv> A ) ∈ \<complex> ∧ A ∈ \<complex> ) --> 
 ( ( \<one> \<cdiv> A ) · A ) = ( A · ( \<one> \<cdiv> A ) )" by (rule MMI_axmulcom)
   have S2: "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> ( \<one> \<cdiv> A ) ∈ \<complex>" by (rule MMI_recclt)
   have S3: "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> A ∈ \<complex>" by (rule MMI_pm3_26)
   from S1 S2 S3 have S4: "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( \<one> \<cdiv> A ) · A ) = ( A · ( \<one> \<cdiv> A ) )" by (rule MMI_sylanc)
   have S5: "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( A · ( \<one> \<cdiv> A ) ) = \<one>" by (rule MMI_recidt)
   from S4 S5 show "( A ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( \<one> \<cdiv> A ) · A ) = \<one>" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_divrec: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "B ≠ \<zero>"   
   shows "( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from A2 have S3: "B ∈ \<complex>".
   from A3 have S4: "B ≠ \<zero>".
   from S3 S4 have S5: "( \<one> \<cdiv> B ) ∈ \<complex>" by (rule MMI_reccl)
   from S2 S5 have S6: "( A · ( \<one> \<cdiv> B ) ) ∈ \<complex>" by (rule MMI_mulcl)
   from S1 S6 have S7: "( B · ( A · ( \<one> \<cdiv> B ) ) ) = 
 ( ( A · ( \<one> \<cdiv> B ) ) · B )" by (rule MMI_mulcom)
   from A1 have S8: "A ∈ \<complex>".
   from S5 have S9: "( \<one> \<cdiv> B ) ∈ \<complex>" .
   from A2 have S10: "B ∈ \<complex>".
   from S8 S9 S10 have S11: "( ( A · ( \<one> \<cdiv> B ) ) · B ) = 
 ( A · ( ( \<one> \<cdiv> B ) · B ) )" by (rule MMI_mulass)
   from A2 have S12: "B ∈ \<complex>".
   have S13: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from A3 have S14: "B ≠ \<zero>".
   from S12 S13 S14 have S15: "( ( \<one> \<cdiv> B ) · B ) = \<one>" by (rule MMI_divcan1)
   from S15 have S16: "( A · ( ( \<one> \<cdiv> B ) · B ) ) = ( A · \<one> )" by (rule MMI_opreq2i)
   from A1 have S17: "A ∈ \<complex>".
   from S17 have S18: "( A · \<one> ) = A" by (rule MMI_mulid1)
   from S16 S18 have S19: "( A · ( ( \<one> \<cdiv> B ) · B ) ) = A" by (rule MMI_eqtr)
   from S7 S11 S19 have S20: "( B · ( A · ( \<one> \<cdiv> B ) ) ) = A" by (rule MMI_3eqtr)
   from A1 have S21: "A ∈ \<complex>".
   from A2 have S22: "B ∈ \<complex>".
   from S6 have S23: "( A · ( \<one> \<cdiv> B ) ) ∈ \<complex>" .
   from A3 have S24: "B ≠ \<zero>".
   from S21 S22 S23 S24 have S25: "( A \<cdiv> B ) = 
 ( A · ( \<one> \<cdiv> B ) ) <-> 
 ( B · ( A · ( \<one> \<cdiv> B ) ) ) = A" by (rule MMI_divmul)
   from S20 S25 show "( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )" by (rule MMI_mpbir)
qed

lemma (in MMIsar0) MMI_divrecz: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "B ≠ \<zero> --> ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )"
proof -
   have S1: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( A \<cdiv> B ) = 
 ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) )" by (rule MMI_opreq2)
   have S2: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( \<one> \<cdiv> B ) = 
 ( \<one> \<cdiv> if ( B ≠ \<zero> , B , \<one> ) )" by (rule MMI_opreq2)
   from S2 have S3: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( A · ( \<one> \<cdiv> B ) ) = 
 ( A · ( \<one> \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) )" by (rule MMI_opreq2d)
   from S1 S3 have S4: "B = 
 if ( B ≠ \<zero> , B , \<one> ) --> 
 ( ( A \<cdiv> B ) = 
 ( A · ( \<one> \<cdiv> B ) ) <-> 
 ( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) = 
 ( A · ( \<one> \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) ) )" by (rule MMI_eqeq12d)
   from A1 have S5: "A ∈ \<complex>".
   from A2 have S6: "B ∈ \<complex>".
   have S7: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S6 S7 have S8: "if ( B ≠ \<zero> , B , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   have S9: "if ( B ≠ \<zero> , B , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S5 S8 S9 have S10: "( A \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) = 
 ( A · ( \<one> \<cdiv> if ( B ≠ \<zero> , B , \<one> ) ) )" by (rule MMI_divrec)
   from S4 S10 show "B ≠ \<zero> --> ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )" 
     by (rule MMI_dedth)
qed;

(**********181-190*************************************)

lemma (in MMIsar0) MMI_divrect: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B )" by (rule MMI_opreq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · ( \<one> \<cdiv> B ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) )" by (rule MMI_opreq1)
   from S1 S2 have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A \<cdiv> B ) = 
 ( A · ( \<one> \<cdiv> B ) ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) ) )" by (rule MMI_eqeq12d)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) ) ) <-> 
 ( B ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) ) ) )" by (rule MMI_imbi2d)
   have S5: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B ≠ \<zero> <-> if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S6: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( \<one> \<cdiv> B ) = 
 ( \<one> \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_opreq2d)
   from S6 S8 have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) ) )" by (rule MMI_eqeq12d)
   from S5 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( B ≠ \<zero> --> ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> B ) = ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> B ) ) ) <-> 
 ( if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) ) ) )" by (rule MMI_imbi12d)
   have S11: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S11 have S12: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S13: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S13 have S14: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S12 S14 have S15: "if ( B ∈ \<complex> , B , \<zero> ) ≠ \<zero> --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · ( \<one> \<cdiv> if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_divrecz)
   from S4 S10 S15 have S16: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) ) )" by (rule MMI_dedth2h)
   from S16 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )" by (rule MMI_3impia)
qed

lemma (in MMIsar0) MMI_divrec2t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) = ( ( \<one> \<cdiv> B ) · A )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) = ( A · ( \<one> \<cdiv> B ) )" by (rule MMI_divrect)
   have S2: "( A ∈ \<complex> ∧ ( \<one> \<cdiv> B ) ∈ \<complex> ) --> 
 ( A · ( \<one> \<cdiv> B ) ) = ( ( \<one> \<cdiv> B ) · A )" by (rule MMI_axmulcom)
   have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   have S4: "( B ∈ \<complex> ∧ B ≠ \<zero> ) --> ( \<one> \<cdiv> B ) ∈ \<complex>" by (rule MMI_recclt)
   from S4 have S5: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( \<one> \<cdiv> B ) ∈ \<complex>" by (rule MMI_3adant1)
   from S2 S3 S5 have S6: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A · ( \<one> \<cdiv> B ) ) = ( ( \<one> \<cdiv> B ) · A )" by (rule MMI_sylanc)
   from S1 S6 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ B ≠ \<zero> ) --> 
 ( A \<cdiv> B ) = ( ( \<one> \<cdiv> B ) · A )" by (rule MMI_eqtrd)
qed

lemma (in MMIsar0) MMI_divasst: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )"
proof -
   have S1: "A ∈ \<complex> --> A ∈ \<complex>" by (rule MMI_id)
   have S2: "B ∈ \<complex> --> B ∈ \<complex>" by (rule MMI_id)
   have S3: "( C ∈ \<complex> ∧ C ≠ \<zero> ) --> ( \<one> \<cdiv> C ) ∈ \<complex>" by (rule MMI_recclt)
   from S1 S2 S3 have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( C ∈ \<complex> ∧ C ≠ \<zero> ) ) --> 
 ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<one> \<cdiv> C ) ∈ \<complex> )" by (rule MMI_3anim123i)
   from S4 have S5: "A ∈ \<complex> --> 
 ( B ∈ \<complex> --> 
 ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<one> \<cdiv> C ) ∈ \<complex> ) ) )" by (rule MMI_3exp)
   from S5 have S6: "A ∈ \<complex> --> 
 ( B ∈ \<complex> --> 
 ( C ∈ \<complex> --> 
 ( C ≠ \<zero> --> 
 ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<one> \<cdiv> C ) ∈ \<complex> ) ) ) )" by (rule MMI_exp4a)
   from S6 have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<one> \<cdiv> C ) ∈ \<complex> )" by (rule MMI_3imp1)
   have S8: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( \<one> \<cdiv> C ) ∈ \<complex> ) --> 
 ( ( A · B ) · ( \<one> \<cdiv> C ) ) = 
 ( A · ( B · ( \<one> \<cdiv> C ) ) )" by (rule MMI_axmulass)
   from S7 S8 have S9: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) · ( \<one> \<cdiv> C ) ) = 
 ( A · ( B · ( \<one> \<cdiv> C ) ) )" by (rule MMI_syl)
   have S10: "( ( A · B ) ∈ \<complex> ∧ C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = 
 ( ( A · B ) · ( \<one> \<cdiv> C ) )" by (rule MMI_divrect)
   from S10 have S11: "( ( ( A · B ) ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = 
 ( ( A · B ) · ( \<one> \<cdiv> C ) )" by (rule MMI_3expa)
   have S12: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> ( A · B ) ∈ \<complex>" by (rule MMI_axmulcl)
   from S12 have S13: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) ∈ \<complex> ∧ C ∈ \<complex> )" by (rule MMI_anim1i)
   from S13 have S14: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · B ) ∈ \<complex> ∧ C ∈ \<complex> )" by (rule MMI_3impa)
   from S11 S14 have S15: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = 
 ( ( A · B ) · ( \<one> \<cdiv> C ) )" by (rule MMI_sylan)
   have S16: "( B ∈ \<complex> ∧ C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) = ( B · ( \<one> \<cdiv> C ) )" by (rule MMI_divrect)
   from S16 have S17: "( ( B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) = ( B · ( \<one> \<cdiv> C ) )" by (rule MMI_3expa)
   from S17 have S18: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) = ( B · ( \<one> \<cdiv> C ) )" by (rule MMI_3adantl1)
   from S18 have S19: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> C ) ) = 
 ( A · ( B · ( \<one> \<cdiv> C ) ) )" by (rule MMI_opreq2d)
   from S9 S15 S19 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )" by (rule MMI_3eqtr4d)
qed

lemma (in MMIsar0) MMI_div23t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( ( A \<cdiv> C ) · B )"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · B ) = ( B · A )" by (rule MMI_axmulcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · B ) = ( B · A )" by (rule MMI_3adant3)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A · B ) = ( B · A )" by (rule MMI_adantr)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( ( B · A ) \<cdiv> C )" by (rule MMI_opreq1d)
   have S5: "( ( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( B · A ) \<cdiv> C ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_divasst)
   from S5 have S6: "( B ∈ \<complex> ∧ A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( B · A ) \<cdiv> C ) = 
 ( B · ( A \<cdiv> C ) ) )" by (rule MMI_ex)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( B · A ) \<cdiv> C ) = 
 ( B · ( A \<cdiv> C ) ) )" by (rule MMI_3com12)
   from S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( B · A ) \<cdiv> C ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_imp)
   have S9: "( B ∈ \<complex> ∧ ( A \<cdiv> C ) ∈ \<complex> ) --> 
 ( B · ( A \<cdiv> C ) ) = ( ( A \<cdiv> C ) · B )" by (rule MMI_axmulcom)
   have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_3simp2)
   from S10 have S11: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 B ∈ \<complex>" by (rule MMI_adantr)
   have S12: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_divclt)
   from S12 have S13: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_3expa)
   from S13 have S14: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_3adantl2)
   from S9 S11 S14 have S15: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( B · ( A \<cdiv> C ) ) = ( ( A \<cdiv> C ) · B )" by (rule MMI_sylanc)
   from S4 S8 S15 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( ( A \<cdiv> C ) · B )" by (rule MMI_3eqtrd)
qed

lemma (in MMIsar0) MMI_div13t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) · C ) = ( ( C \<cdiv> B ) · A )"
proof -
   have S1: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( A · C ) = ( C · A )" by (rule MMI_axmulcom)
   from S1 have S2: "( A ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · C ) \<cdiv> B ) = ( ( C · A ) \<cdiv> B )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( ( A · C ) \<cdiv> B ) = ( ( C · A ) \<cdiv> B )" by (rule MMI_3adant2)
   from S3 have S4: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A · C ) \<cdiv> B ) = ( ( C · A ) \<cdiv> B )" by (rule MMI_adantr)
   have S5: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A · C ) \<cdiv> B ) = ( ( A \<cdiv> B ) · C )" by (rule MMI_div23t)
   from S5 have S6: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( ( A · C ) \<cdiv> B ) = 
 ( ( A \<cdiv> B ) · C ) )" by (rule MMI_ex)
   from S6 have S7: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( ( A · C ) \<cdiv> B ) = 
 ( ( A \<cdiv> B ) · C ) )" by (rule MMI_3com23)
   from S7 have S8: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A · C ) \<cdiv> B ) = ( ( A \<cdiv> B ) · C )" by (rule MMI_imp)
   have S9: "( ( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( C · A ) \<cdiv> B ) = ( ( C \<cdiv> B ) · A )" by (rule MMI_div23t)
   from S9 have S10: "( C ∈ \<complex> ∧ A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( ( C · A ) \<cdiv> B ) = 
 ( ( C \<cdiv> B ) · A ) )" by (rule MMI_ex)
   from S10 have S11: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( B ≠ \<zero> --> 
 ( ( C · A ) \<cdiv> B ) = 
 ( ( C \<cdiv> B ) · A ) )" by (rule MMI_3coml)
   from S11 have S12: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( C · A ) \<cdiv> B ) = ( ( C \<cdiv> B ) · A )" by (rule MMI_imp)
   from S4 S8 S12 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ B ≠ \<zero> ) --> 
 ( ( A \<cdiv> B ) · C ) = ( ( C \<cdiv> B ) · A )" by (rule MMI_3eqtr3d)
qed

lemma (in MMIsar0) MMI_div12t: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> C ) ) = ( B · ( A \<cdiv> C ) )"
proof -
   have S1: "( A ∈ \<complex> ∧ ( B \<cdiv> C ) ∈ \<complex> ) --> 
 ( A · ( B \<cdiv> C ) ) = ( ( B \<cdiv> C ) · A )" by (rule MMI_axmulcom)
   have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> A ∈ \<complex>" by (rule MMI_3simp1)
   from S2 have S3: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 A ∈ \<complex>" by (rule MMI_adantr)
   have S4: "( B ∈ \<complex> ∧ C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) ∈ \<complex>" by (rule MMI_divclt)
   from S4 have S5: "( ( B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) ∈ \<complex>" by (rule MMI_3expa)
   from S5 have S6: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( B \<cdiv> C ) ∈ \<complex>" by (rule MMI_3adantl1)
   from S1 S3 S6 have S7: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> C ) ) = ( ( B \<cdiv> C ) · A )" by (rule MMI_sylanc)
   have S8: "( ( B ∈ \<complex> ∧ C ∈ \<complex> ∧ A ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( B \<cdiv> C ) · A ) = ( ( A \<cdiv> C ) · B )" by (rule MMI_div13t)
   from S8 have S9: "( B ∈ \<complex> ∧ C ∈ \<complex> ∧ A ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( B \<cdiv> C ) · A ) = 
 ( ( A \<cdiv> C ) · B ) )" by (rule MMI_ex)
   from S9 have S10: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( B \<cdiv> C ) · A ) = 
 ( ( A \<cdiv> C ) · B ) )" by (rule MMI_3comr)
   from S10 have S11: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( B \<cdiv> C ) · A ) = ( ( A \<cdiv> C ) · B )" by (rule MMI_imp)
   have S12: "( ( A \<cdiv> C ) ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A \<cdiv> C ) · B ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_axmulcom)
   have S13: "( A ∈ \<complex> ∧ C ∈ \<complex> ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_divclt)
   from S13 have S14: "( ( A ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_3expa)
   from S14 have S15: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_3adantl2)
   have S16: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> B ∈ \<complex>" by (rule MMI_3simp2)
   from S16 have S17: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 B ∈ \<complex>" by (rule MMI_adantr)
   from S12 S15 S17 have S18: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A \<cdiv> C ) · B ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_sylanc)
   from S7 S11 S18 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( A · ( B \<cdiv> C ) ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_3eqtrd)
qed

lemma (in MMIsar0) MMI_divassz: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "C ≠ \<zero> --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   from S1 S2 S3 have S4: "A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex>" by (rule MMI_3pm3_2i)
   have S5: "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )" by (rule MMI_divasst)
   from S4 S5 show "C ≠ \<zero> --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )" by (rule MMI_mpan)
qed

lemma (in MMIsar0) MMI_divass: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "C ≠ \<zero>"   
   shows "( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )"
proof -
   from A4 have S1: "C ≠ \<zero>".
   from A1 have S2: "A ∈ \<complex>".
   from A2 have S3: "B ∈ \<complex>".
   from A3 have S4: "C ∈ \<complex>".
   from S2 S3 S4 have S5: "C ≠ \<zero> --> 
 ( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )" by (rule MMI_divassz)
   from S1 S5 show "( ( A · B ) \<cdiv> C ) = ( A · ( B \<cdiv> C ) )" by (rule MMI_ax_mp)
qed

lemma (in MMIsar0) MMI_divdir: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "C ≠ \<zero>"   
   shows "( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   from A4 have S4: "C ≠ \<zero>".
   from S3 S4 have S5: "( \<one> \<cdiv> C ) ∈ \<complex>" by (rule MMI_reccl)
   from S1 S2 S5 have S6: "( ( A \<ca> B ) · ( \<one> \<cdiv> C ) ) = 
 ( ( A · ( \<one> \<cdiv> C ) ) \<ca> ( B · ( \<one> \<cdiv> C ) ) )" by (rule MMI_adddir)
   from A1 have S7: "A ∈ \<complex>".
   from A2 have S8: "B ∈ \<complex>".
   from S7 S8 have S9: "( A \<ca> B ) ∈ \<complex>" by (rule MMI_addcl)
   from A3 have S10: "C ∈ \<complex>".
   from A4 have S11: "C ≠ \<zero>".
   from S9 S10 S11 have S12: "( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<ca> B ) · ( \<one> \<cdiv> C ) )" by (rule MMI_divrec)
   from A1 have S13: "A ∈ \<complex>".
   from A3 have S14: "C ∈ \<complex>".
   from A4 have S15: "C ≠ \<zero>".
   from S13 S14 S15 have S16: "( A \<cdiv> C ) = ( A · ( \<one> \<cdiv> C ) )" by (rule MMI_divrec)
   from A2 have S17: "B ∈ \<complex>".
   from A3 have S18: "C ∈ \<complex>".
   from A4 have S19: "C ≠ \<zero>".
   from S17 S18 S19 have S20: "( B \<cdiv> C ) = ( B · ( \<one> \<cdiv> C ) )" by (rule MMI_divrec)
   from S16 S20 have S21: "( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) = 
 ( ( A · ( \<one> \<cdiv> C ) ) \<ca> ( B · ( \<one> \<cdiv> C ) ) )" by (rule MMI_opreq12i)
   from S6 S12 S21 show "( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )" by (rule MMI_3eqtr4)
qed

lemma (in MMIsar0) MMI_div23: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "C ≠ \<zero>"   
   shows "( ( A · B ) \<cdiv> C ) = ( ( A \<cdiv> C ) · B )"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "( A · B ) = ( B · A )" by (rule MMI_mulcom)
   from S3 have S4: "( ( A · B ) \<cdiv> C ) = ( ( B · A ) \<cdiv> C )" 
     by (rule MMI_opreq1i)
   from A2 have S5: "B ∈ \<complex>".
   from A1 have S6: "A ∈ \<complex>".
   from A3 have S7: "C ∈ \<complex>".
   from A4 have S8: "C ≠ \<zero>".
   from S5 S6 S7 S8 have 
     S9: "( ( B · A ) \<cdiv> C ) = ( B · ( A \<cdiv> C ) )" by (rule MMI_divass)
   from A2 have S10: "B ∈ \<complex>".
   from A1 have S11: "A ∈ \<complex>".
   from A3 have S12: "C ∈ \<complex>".
   from A4 have S13: "C ≠ \<zero>".
   from S11 S12 S13 have S14: "( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_divcl)
   from S10 S14 have S15: "( B · ( A \<cdiv> C ) ) = ( ( A \<cdiv> C ) · B )" 
     by (rule MMI_mulcom)
   from S4 S9 S15 show "( ( A · B ) \<cdiv> C ) = ( ( A \<cdiv> C ) · B )" 
     by (rule MMI_3eqtr)
qed;

(************* 191-200*************************************)


lemma (in MMIsar0) MMI_divdirz: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>"   
   shows "C ≠ \<zero> --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )"
proof -
   have S1: "C = 
 if ( C ≠ \<zero> , C , \<one> ) --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<ca> B ) \<cdiv> if ( C ≠ \<zero> , C , \<one> ) )" by (rule MMI_opreq2)
   have S2: "C = 
 if ( C ≠ \<zero> , C , \<one> ) --> 
 ( A \<cdiv> C ) = 
 ( A \<cdiv> if ( C ≠ \<zero> , C , \<one> ) )" by (rule MMI_opreq2)
   have S3: "C = 
 if ( C ≠ \<zero> , C , \<one> ) --> 
 ( B \<cdiv> C ) = 
 ( B \<cdiv> if ( C ≠ \<zero> , C , \<one> ) )" by (rule MMI_opreq2)
   from S2 S3 have S4: "C = 
 if ( C ≠ \<zero> , C , \<one> ) --> 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) = 
 ( ( A \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) \<ca> ( B \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) )" by (rule MMI_opreq12d)
   from S1 S4 have S5: "C = 
 if ( C ≠ \<zero> , C , \<one> ) --> 
 ( ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) <-> 
 ( ( A \<ca> B ) \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) = 
 ( ( A \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) \<ca> ( B \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) ) )" by (rule MMI_eqeq12d)
   from A1 have S6: "A ∈ \<complex>".
   from A2 have S7: "B ∈ \<complex>".
   from A3 have S8: "C ∈ \<complex>".
   have S9: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S8 S9 have S10: "if ( C ≠ \<zero> , C , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   have S11: "if ( C ≠ \<zero> , C , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S6 S7 S10 S11 have S12: "( ( A \<ca> B ) \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) = 
 ( ( A \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) \<ca> ( B \<cdiv> if ( C ≠ \<zero> , C , \<one> ) ) )" by (rule MMI_divdir)
   from S5 S12 show "C ≠ \<zero> --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_divdirt: 
   shows "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<ca> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C )" by (rule MMI_opreq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A \<cdiv> C ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C )" by (rule MMI_opreq1)
   from S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) )" by (rule MMI_opreq1d)
   from S2 S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) )" by (rule MMI_eqeq12d)
   from S5 have S6: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( C ≠ \<zero> --> ( ( A \<ca> B ) \<cdiv> C ) = ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) ) <-> 
 ( C ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) ) )" by (rule MMI_imbi2d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C )" by (rule MMI_opreq1d)
   have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( B \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C )" by (rule MMI_opreq1)
   from S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) )" by (rule MMI_opreq2d)
   from S8 S10 have S11: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) ) )" by (rule MMI_eqeq12d)
   from S11 have S12: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( C ≠ \<zero> --> ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> B ) \<cdiv> C ) = ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) ) <-> 
 ( C ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) ) ) )" by (rule MMI_imbi2d)
   have S13: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( C ≠ \<zero> <-> if ( C ∈ \<complex> , C , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S14: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_opreq2)
   have S15: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_opreq2)
   have S16: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) )" by (rule MMI_opreq2)
   from S15 S16 have S17: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) )" by (rule MMI_opreq12d)
   from S14 S17 have S18: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) ) )" by (rule MMI_eqeq12d)
   from S13 S18 have S19: "C = 
 if ( C ∈ \<complex> , C , \<zero> ) --> 
 ( ( C ≠ \<zero> --> ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> C ) = ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> C ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> C ) ) ) <-> 
 ( if ( C ∈ \<complex> , C , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) ) ) )" by (rule MMI_imbi12d)
   have S20: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S20 have S21: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S22: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S22 have S23: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S24: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S24 have S25: "if ( C ∈ \<complex> , C , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S21 S23 S25 have S26: "if ( C ∈ \<complex> , C , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<ca> if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) \<ca> ( if ( B ∈ \<complex> , B , \<zero> ) \<cdiv> if ( C ∈ \<complex> , C , \<zero> ) ) )" by (rule MMI_divdirz)
   from S6 S12 S19 S26 have S27: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) --> 
 ( C ≠ \<zero> --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) ) )" by (rule MMI_dedth3h)
   from S27 show "( ( A ∈ \<complex> ∧ B ∈ \<complex> ∧ C ∈ \<complex> ) ∧ C ≠ \<zero> ) --> 
 ( ( A \<ca> B ) \<cdiv> C ) = 
 ( ( A \<cdiv> C ) \<ca> ( B \<cdiv> C ) )" by (rule MMI_imp)
qed

lemma (in MMIsar0) MMI_divcan3: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>"   
   shows "( ( A · B ) \<cdiv> A ) = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from A1 have S3: "A ∈ \<complex>".
   from A3 have S4: "A ≠ \<zero>".
   from S1 S2 S3 S4 have S5: "( ( A · B ) \<cdiv> A ) = ( A · ( B \<cdiv> A ) )" by (rule MMI_divass)
   from A1 have S6: "A ∈ \<complex>".
   from A2 have S7: "B ∈ \<complex>".
   from A3 have S8: "A ≠ \<zero>".
   from S6 S7 S8 have S9: "( A · ( B \<cdiv> A ) ) = B" by (rule MMI_divcan2)
   from S5 S9 show "( ( A · B ) \<cdiv> A ) = B" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_divcan4: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "A ≠ \<zero>"   
   shows "( ( B · A ) \<cdiv> A ) = B"
proof -
   from A2 have S1: "B ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from S1 S2 have S3: "( B · A ) = ( A · B )" by (rule MMI_mulcom)
   from S3 have S4: "( ( B · A ) \<cdiv> A ) = ( ( A · B ) \<cdiv> A )" by (rule MMI_opreq1i)
   from A1 have S5: "A ∈ \<complex>".
   from A2 have S6: "B ∈ \<complex>".
   from A3 have S7: "A ≠ \<zero>".
   from S5 S6 S7 have S8: "( ( A · B ) \<cdiv> A ) = B" by (rule MMI_divcan3)
   from S4 S8 show "( ( B · A ) \<cdiv> A ) = B" by (rule MMI_eqtr)
qed

lemma (in MMIsar0) MMI_divcan3z: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( ( A · B ) \<cdiv> A ) = B"
proof -
   have S1: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( A · B ) = 
 ( if ( A ≠ \<zero> , A , \<one> ) · B )" by (rule MMI_opreq1)
   have S2: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 A = if ( A ≠ \<zero> , A , \<one> )" by (rule MMI_id)
   from S1 S2 have S3: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( A · B ) \<cdiv> A ) = 
 ( ( if ( A ≠ \<zero> , A , \<one> ) · B ) \<cdiv> if ( A ≠ \<zero> , A , \<one> ) )" by (rule MMI_opreq12d)
   from S3 have S4: "A = 
 if ( A ≠ \<zero> , A , \<one> ) --> 
 ( ( ( A · B ) \<cdiv> A ) = 
 B <-> 
 ( ( if ( A ≠ \<zero> , A , \<one> ) · B ) \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) = 
 B )" by (rule MMI_eqeq1d)
   from A1 have S5: "A ∈ \<complex>".
   have S6: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S5 S6 have S7: "if ( A ≠ \<zero> , A , \<one> ) ∈ \<complex>" by (rule MMI_keepel)
   from A2 have S8: "B ∈ \<complex>".
   have S9: "if ( A ≠ \<zero> , A , \<one> ) ≠ \<zero>" by (rule MMI_elimne0)
   from S7 S8 S9 have S10: "( ( if ( A ≠ \<zero> , A , \<one> ) · B ) \<cdiv> if ( A ≠ \<zero> , A , \<one> ) ) = 
 B" by (rule MMI_divcan3)
   from S4 S10 show "A ≠ \<zero> --> ( ( A · B ) \<cdiv> A ) = B" by (rule MMI_dedth)
qed

lemma (in MMIsar0) MMI_divcan4z: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>"   
   shows "A ≠ \<zero> --> ( ( B · A ) \<cdiv> A ) = B"
proof -
   from A1 have S1: "A ∈ \<complex>".
   from A2 have S2: "B ∈ \<complex>".
   from S1 S2 have S3: "A ≠ \<zero> --> ( ( A · B ) \<cdiv> A ) = B" by (rule MMI_divcan3z)
   from A2 have S4: "B ∈ \<complex>".
   from A1 have S5: "A ∈ \<complex>".
   from S4 S5 have S6: "( B · A ) = ( A · B )" by (rule MMI_mulcom)
   from S6 have S7: "( ( B · A ) \<cdiv> A ) = ( ( A · B ) \<cdiv> A )" by (rule MMI_opreq1i)
   from S3 S7 show "A ≠ \<zero> --> ( ( B · A ) \<cdiv> A ) = B" by (rule MMI_syl5eq)
qed

lemma (in MMIsar0) MMI_divcan3t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> A ) = B"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A ≠ \<zero> <-> if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> )" by (rule MMI_neeq1)
   have S2: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( A · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B )" by (rule MMI_opreq1)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 A = if ( A ∈ \<complex> , A , \<zero> )" by (rule MMI_id)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A · B ) \<cdiv> A ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq12d)
   from S4 have S5: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( ( A · B ) \<cdiv> A ) = 
 B <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B )" by (rule MMI_eqeq1d)
   from S1 S5 have S6: "A = 
 if ( A ∈ \<complex> , A , \<zero> ) --> 
 ( ( A ≠ \<zero> --> ( ( A · B ) \<cdiv> A ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B ) )" by (rule MMI_imbi12d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( if ( A ∈ \<complex> , A , \<zero> ) · B ) = 
 ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_opreq2)
   from S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) )" by (rule MMI_opreq1d)
   have S9: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 B = if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_id)
   from S8 S9 have S10: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 B <-> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) )" by (rule MMI_eqeq12d)
   from S10 have S11: "B = 
 if ( B ∈ \<complex> , B , \<zero> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> ( ( if ( A ∈ \<complex> , A , \<zero> ) · B ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = B ) <-> 
 ( if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> ) ) )" by (rule MMI_imbi2d)
   have S12: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S12 have S13: "if ( A ∈ \<complex> , A , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   have S14: "\<zero> ∈ \<complex>" by (rule MMI_0cn)
   from S14 have S15: "if ( B ∈ \<complex> , B , \<zero> ) ∈ \<complex>" by (rule MMI_elimel)
   from S13 S15 have S16: "if ( A ∈ \<complex> , A , \<zero> ) ≠ \<zero> --> 
 ( ( if ( A ∈ \<complex> , A , \<zero> ) · if ( B ∈ \<complex> , B , \<zero> ) ) \<cdiv> if ( A ∈ \<complex> , A , \<zero> ) ) = 
 if ( B ∈ \<complex> , B , \<zero> )" by (rule MMI_divcan3z)
   from S6 S11 S16 have S17: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A ≠ \<zero> --> ( ( A · B ) \<cdiv> A ) = B )" by (rule MMI_dedth2h)
   from S17 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> A ) = B" by (rule MMI_3impia)
qed

lemma (in MMIsar0) MMI_divcan4t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( B · A ) \<cdiv> A ) = B"
proof -
   have S1: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( A · B ) = ( B · A )" by (rule MMI_axmulcom)
   from S1 have S2: "( A ∈ \<complex> ∧ B ∈ \<complex> ) --> 
 ( ( A · B ) \<cdiv> A ) = ( ( B · A ) \<cdiv> A )" by (rule MMI_opreq1d)
   from S2 have S3: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> A ) = ( ( B · A ) \<cdiv> A )" by (rule MMI_3adant3)
   have S4: "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( A · B ) \<cdiv> A ) = B" by (rule MMI_divcan3t)
   from S3 S4 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ A ≠ \<zero> ) --> 
 ( ( B · A ) \<cdiv> A ) = B" by (rule MMI_eqtr3d)
qed

lemma (in MMIsar0) MMI_div11: assumes A1: "A ∈ \<complex>" and
    A2: "B ∈ \<complex>" and
    A3: "C ∈ \<complex>" and
    A4: "C ≠ \<zero>"   
   shows "( A \<cdiv> C ) = ( B \<cdiv> C ) <-> A = B"
proof -
   from A3 have S1: "C ∈ \<complex>".
   from A1 have S2: "A ∈ \<complex>".
   from A3 have S3: "C ∈ \<complex>".
   from A4 have S4: "C ≠ \<zero>".
   from S2 S3 S4 have S5: "( A \<cdiv> C ) ∈ \<complex>" by (rule MMI_divcl)
   from A2 have S6: "B ∈ \<complex>".
   from A3 have S7: "C ∈ \<complex>".
   from A4 have S8: "C ≠ \<zero>".
   from S6 S7 S8 have S9: "( B \<cdiv> C ) ∈ \<complex>" by (rule MMI_divcl)
   from A4 have S10: "C ≠ \<zero>".
   from S1 S5 S9 S10 have S11: "( C · ( A \<cdiv> C ) ) = 
 ( C · ( B \<cdiv> C ) ) <-> 
 ( A \<cdiv> C ) = ( B \<cdiv> C )" by (rule MMI_mulcan)
   from A3 have S12: "C ∈ \<complex>".
   from A1 have S13: "A ∈ \<complex>".
   from A4 have S14: "C ≠ \<zero>".
   from S12 S13 S14 have S15: "( C · ( A \<cdiv> C ) ) = A" by (rule MMI_divcan2)
   from A3 have S16: "C ∈ \<complex>".
   from A2 have S17: "B ∈ \<complex>".
   from A4 have S18: "C ≠ \<zero>".
   from S16 S17 S18 have S19: "( C · ( B \<cdiv> C ) ) = B" by (rule MMI_divcan2)
   from S15 S19 have S20: "( C · ( A \<cdiv> C ) ) = 
 ( C · ( B \<cdiv> C ) ) <-> A = B" by (rule MMI_eqeq12i)
   from S11 S20 show "( A \<cdiv> C ) = ( B \<cdiv> C ) <-> A = B" by (rule MMI_bitr3)
qed

lemma (in MMIsar0) MMI_div11t: 
   shows "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( C ∈ \<complex> ∧ C ≠ \<zero> ) ) --> 
 ( ( A \<cdiv> C ) = ( B \<cdiv> C ) <-> A = B )"
proof -
   have S1: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( A \<cdiv> C ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C )" by (rule MMI_opreq1)
   from S1 have S2: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( ( A \<cdiv> C ) = 
 ( B \<cdiv> C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( B \<cdiv> C ) )" by (rule MMI_eqeq1d)
   have S3: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( A = B <-> if ( A ∈ \<complex> , A , \<one> ) = B )" by (rule MMI_eqeq1)
   from S2 S3 have S4: "A = 
 if ( A ∈ \<complex> , A , \<one> ) --> 
 ( ( ( A \<cdiv> C ) = ( B \<cdiv> C ) <-> A = B ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( B \<cdiv> C ) <-> 
 if ( A ∈ \<complex> , A , \<one> ) = B ) )" by (rule MMI_bibi12d)
   have S5: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( B \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C )" by (rule MMI_opreq1)
   from S5 have S6: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( B \<cdiv> C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C ) )" by (rule MMI_eqeq2d)
   have S7: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( if ( A ∈ \<complex> , A , \<one> ) = 
 B <-> 
 if ( A ∈ \<complex> , A , \<one> ) = 
 if ( B ∈ \<complex> , B , \<one> ) )" by (rule MMI_eqeq2)
   from S6 S7 have S8: "B = 
 if ( B ∈ \<complex> , B , \<one> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = ( B \<cdiv> C ) <-> if ( A ∈ \<complex> , A , \<one> ) = B ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C ) <-> 
 if ( A ∈ \<complex> , A , \<one> ) = 
 if ( B ∈ \<complex> , B , \<one> ) ) )" by (rule MMI_bibi12d)
   have S9: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) )" by (rule MMI_opreq2)
   have S10: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) )" by (rule MMI_opreq2)
   from S9 S10 have S11: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C ) <-> 
 ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) )" by (rule MMI_eqeq12d)
   from S11 have S12: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> C ) = ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> C ) <-> if ( A ∈ \<complex> , A , \<one> ) = if ( B ∈ \<complex> , B , \<one> ) ) <-> 
 ( ( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) <-> 
 if ( A ∈ \<complex> , A , \<one> ) = 
 if ( B ∈ \<complex> , B , \<one> ) ) )" by (rule MMI_bibi1d)
   have S13: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S13 have S14: "if ( A ∈ \<complex> , A , \<one> ) ∈ \<complex>" by (rule MMI_elimel)
   have S15: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   from S15 have S16: "if ( B ∈ \<complex> , B , \<one> ) ∈ \<complex>" by (rule MMI_elimel)
   have S17: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( C ∈ \<complex> <-> 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> )" by (rule MMI_eleq1)
   have S18: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( C ≠ \<zero> <-> 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   from S17 S18 have S19: "C = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) <-> 
 ( if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> ∧ if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero> ) )" by (rule MMI_anbi12d)
   have S20: "\<one> = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( \<one> ∈ \<complex> <-> 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> )" by (rule MMI_eleq1)
   have S21: "\<one> = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( \<one> ≠ \<zero> <-> 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero> )" by (rule MMI_neeq1)
   from S20 S21 have S22: "\<one> = 
 if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) --> 
 ( ( \<one> ∈ \<complex> ∧ \<one> ≠ \<zero> ) <-> 
 ( if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> ∧ if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero> ) )" by (rule MMI_anbi12d)
   have S23: "\<one> ∈ \<complex>" by (rule MMI_1cn)
   have S24: "\<one> ≠ \<zero>" by (rule MMI_ax1ne0)
   from S23 S24 have S25: "\<one> ∈ \<complex> ∧ \<one> ≠ \<zero>" by (rule MMI_pm3_2i)
   from S19 S22 S25 have S26: "if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> ∧ if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero>" by (rule MMI_elimhyp)
   from S26 have S27: "if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex>" by (rule MMI_pm3_26i)
   from S26 have S28: "if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ∈ \<complex> ∧ if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero>" .
   from S28 have S29: "if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ≠ \<zero>" by (rule MMI_pm3_27i)
   from S14 S16 S27 S29 have S30: "( if ( A ∈ \<complex> , A , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) = 
 ( if ( B ∈ \<complex> , B , \<one> ) \<cdiv> if ( ( C ∈ \<complex> ∧ C ≠ \<zero> ) , C , \<one> ) ) <-> 
 if ( A ∈ \<complex> , A , \<one> ) = 
 if ( B ∈ \<complex> , B , \<one> )" by (rule MMI_div11)
   from S4 S8 S12 S30 show "( A ∈ \<complex> ∧ B ∈ \<complex> ∧ ( C ∈ \<complex> ∧ C ≠ \<zero> ) ) --> 
 ( ( A \<cdiv> C ) = ( B \<cdiv> C ) <-> A = B )" by (rule MMI_dedth3h)
qed;


end