---

Step * 1 2 1 2 2 1 2 of Lemma satisfies-gcd-reduce-eq-constraints


1. u1 : ℤ
2. v : ℤ List
3. n : ℕ+
4. (||[u1 / v]|| + 1) = n ∈ ℤ
5. u : ℤ
6. 1 = (||[u1 / v]|| + 1) ∈ ℤ
7. v1 : {L:ℤ List| ||L|| = (||[u1 / v]|| + 1) ∈ ℤ}  List
8. ∀sat:{L:ℤ List| ||L|| = (||[u1 / v]|| + 1) ∈ ℤ}  List
     ((∀as∈sat.[1; [u1 / v]] ⋅ as =0)
     ⇒ (∀as∈v1.[1; [u1 / v]] ⋅ as =0)
     ⇒ ((↑isl(gcd-reduce-eq-constraints(sat;v1)))
        ∧ (∀as∈outl(gcd-reduce-eq-constraints(sat;v1)).[1; [u1 / v]] ⋅ as =0)))
9. sat : {L:ℤ List| ||L|| = (||[u1 / v]|| + 1) ∈ ℤ}  List
10. (∀as∈sat.[1; [u1 / v]] ⋅ as =0)
11. (∀as∈[[u] / v1].[1; [u1 / v]] ⋅ as =0)
⊢ (↑isl(accumulate_abort(L,Ls.let h,t = L 
                              in if t = Ax then if h=0 then inl [L / Ls] else (inr ⋅ )
                                 otherwise eval g = |gcd-list(t)| in
                                           if (1) < (g)
                                              then if h rem g=0
                                                   then eval L' = eager-map(λx.(x ÷ g);L) in
                                                        inl [L' / Ls]
                                                   else (inr ⋅ )
                                              else (inl [L / Ls]);if u=0 then inl [[u] / sat] else (inr ⋅ );v1)))
∧ (∀as∈outl(accumulate_abort(L,Ls.let h,t = L 
                                  in if t = Ax then if h=0 then inl [L / Ls] else (inr ⋅ )
                                     otherwise eval g = |gcd-list(t)| in
                                               if (1) < (g)
                                                  then if h rem g=0
                                                       then eval L' = eager-map(λx.(x ÷ g);L) in
                                                            inl [L' / Ls]
                                                       else (inr ⋅ )
                                                  else (inl [L / Ls]);if u=0 then inl [[u] / sat] else (inr ⋅ );v1)).
      [1; [u1 / v]] ⋅ as =0)
BY
{ (Assert ⌜False⌝⋅ THEN Auto THEN All Reduce  THEN Auto') }

---

Latex:

---

Latex:

1.  u1  :  \mBbbZ{}
2.  v  :  \mBbbZ{}  List
3.  n  :  \mBbbN{}\msupplus{}
4.  (||[u1  /  v]||  +  1)  =  n
5.  u  :  \mBbbZ{}
6.  1  =  (||[u1  /  v]||  +  1)
7.  v1  :  \{L:\mBbbZ{}  List|  ||L||  =  (||[u1  /  v]||  +  1)\}    List
8.  \mforall{}sat:\{L:\mBbbZ{}  List|  ||L||  =  (||[u1  /  v]||  +  1)\}    List
          ((\mforall{}as\mmember{}sat.[1;  [u1  /  v]]  \mcdot{}  as  =0)
          {}\mRightarrow{}  (\mforall{}as\mmember{}v1.[1;  [u1  /  v]]  \mcdot{}  as  =0)
          {}\mRightarrow{}  ((\muparrow{}isl(gcd-reduce-eq-constraints(sat;v1)))
                \mwedge{}  (\mforall{}as\mmember{}outl(gcd-reduce-eq-constraints(sat;v1)).[1;  [u1  /  v]]  \mcdot{}  as  =0)))
9.  sat  :  \{L:\mBbbZ{}  List|  ||L||  =  (||[u1  /  v]||  +  1)\}    List
10.  (\mforall{}as\mmember{}sat.[1;  [u1  /  v]]  \mcdot{}  as  =0)
11.  (\mforall{}as\mmember{}[[u]  /  v1].[1;  [u1  /  v]]  \mcdot{}  as  =0)
\mvdash{}  (\muparrow{}isl(accumulate\_abort(L,Ls.let  h,t  =  L 
                                                            in  if  t  =  Ax  then  if  h=0  then  inl  [L  /  Ls]  else  (inr  \mcdot{}  )
                                                                  otherwise  eval  g  =  |gcd-list(t)|  in
                                                                                      if  (1)  <  (g)
                                                                                            then  if  h  rem  g=0
                                                                                                      then  eval  L'  =  eager-map(\mlambda{}x.(x  \mdiv{}  g);L)  in
                                                                                                                inl  [L'  /  Ls]
                                                                                                      else  (inr  \mcdot{}  )
                                                                                            else  (inl  [L  /  Ls]);if  u=0
                                                                                                                then  inl  [[u]  /  sat]
                                                                                                                else  (inr  \mcdot{}  );v1)))
\mwedge{}  (\mforall{}as\mmember{}outl(accumulate\_abort(L,Ls.let  h,t  =  L 
                                                                    in  if  t  =  Ax  then  if  h=0  then  inl  [L  /  Ls]  else  (inr  \mcdot{}  )
                                                                          otherwise  eval  g  =  |gcd-list(t)|  in
                                                                                              if  (1)  <  (g)
                                                                                                    then  if  h  rem  g=0
                                                                                                              then  eval  L'  =  eager-map(\mlambda{}x.(x  \mdiv{}  g);L)  in
                                                                                                                        inl  [L'  /  Ls]
                                                                                                              else  (inr  \mcdot{}  )
                                                                                                    else  (inl  [L  /  Ls]);if  u=0
                                                                                                                        then  inl  [[u]  /  sat]
                                                                                                                        else  (inr  \mcdot{}  );v1)).[1;
                                                                                                                                                                [u1  /  v]]  \mcdot{}  as  =0)


By

---

Latex:
(Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}  THEN  Auto  THEN  All  Reduce    THEN  Auto')

---

Home Index