Step * 2 1 2 2 1 1 of Lemma adjugate-property

.....subterm..... T:t
4:n
1. CRng
2. : ℕ
3. ¬(n 0 ∈ ℤ)
4. ∀M:Matrix(n;n;r)
     (|M| (r) 0 ≤ i < n. if isEven(i 0) then M[0,i] else -r M[0,i] fi  |matrix-minor(0;i;M)|) ∈ |r|)
5. Matrix(n;n;r)@i
6. : ℕn@i
7. ¬(x 0 ∈ ℤ)
8. |matrix-swap-rows(M;0;x)| (-r |M|) ∈ |r|
9. (-r |matrix-swap-rows(M;0;x)|) |M| ∈ |r|
10. : ℕn@i
⊢ (-r 
   (if isEven(i 0) then matrix-swap-rows(M;0;x)[0,i] else -r matrix-swap-rows(M;0;x)[0,i] fi  
    
    |matrix-minor(0;i;matrix-swap-rows(M;0;x))|))
(if isEven(i x) then M[x,i] else -r M[x,i] fi  |matrix-minor(x;i;M)|)
∈ |r|
BY
RepUR ``matrix-swap-rows`` }

1
1. CRng
2. : ℕ
3. ¬(n 0 ∈ ℤ)
4. ∀M:Matrix(n;n;r)
     (|M| (r) 0 ≤ i < n. if isEven(i 0) then M[0,i] else -r M[0,i] fi  |matrix-minor(0;i;M)|) ∈ |r|)
5. Matrix(n;n;r)@i
6. : ℕn@i
7. ¬(x 0 ∈ ℤ)
8. |matrix-swap-rows(M;0;x)| (-r |M|) ∈ |r|
9. (-r |matrix-swap-rows(M;0;x)|) |M| ∈ |r|
10. : ℕn@i
⊢ (-r 
   (if isEven(i 0) then M[x,i] else -r M[x,i] fi  
    
    |matrix-minor(0;i;matrix(M[if x@0=0 then else if x@0=x then else x@0,y]))|))
(if isEven(i x) then M[x,i] else -r M[x,i] fi  |matrix-minor(x;i;M)|)
∈ |r|


Latex:


Latex:
.....subterm.....  T:t
4:n
1.  r  :  CRng
2.  n  :  \mBbbN{}
3.  \mneg{}(n  =  0)
4.  \mforall{}M:Matrix(n;n;r)
          (|M|
          =  (\mSigma{}(r)  0 
                          \mleq{}  i 
                          <  n
                  if  isEven(i  +  0)  then  M[0,i]  else  -r  M[0,i]  fi    *  |matrix-minor(0;i;M)|))
5.  M  :  Matrix(n;n;r)@i
6.  x  :  \mBbbN{}n@i
7.  \mneg{}(x  =  0)
8.  |matrix-swap-rows(M;0;x)|  =  (-r  |M|)
9.  (-r  |matrix-swap-rows(M;0;x)|)  =  |M|
10.  i  :  \mBbbN{}n@i
\mvdash{}  (-r 
      (if  isEven(i  +  0)  then  matrix-swap-rows(M;0;x)[0,i]  else  -r  matrix-swap-rows(M;0;x)[0,i]  fi   
        * 
        |matrix-minor(0;i;matrix-swap-rows(M;0;x))|))
=  (if  isEven(i  +  x)  then  M[x,i]  else  -r  M[x,i]  fi    *  |matrix-minor(x;i;M)|)


By


Latex:
RepUR  ``matrix-swap-rows``  0




Home Index