---

Step * 1 2 of Lemma oalist_fact


1. a : LOSet
2. b : AbDMon
3. u : |a|
4. ps : |oal(a;b)|
5. (ps[u]) = ((msFor{oal_mon(a;b)} k' ∈ dom(ps). inj(k',ps[k']))[u]) ∈ |b|
6. x : |a|
7. y : |b|
8. ↑before(x;map(λx.(fst(x));ps))
9. ¬(y = e ∈ |b|)
⊢ if x (=b) u then y else ps[u] fi 
= ((inj(x,if x (=b) x then y else ps[x] fi ) ++ (msFor{oal_mon(a;b)} k' ∈ dom(ps)
                                                   inj(k',if x (=b) k' then y else ps[k'] fi )))[u])
∈ |b|
BY
{ ((SplitOnNthConclITE 2 THENM Try RelRST) THEN Try (CompleteAuto)) 
THEN Thin (-1) }

1
1. a : LOSet
2. b : AbDMon
3. u : |a|
4. ps : |oal(a;b)|
5. (ps[u]) = ((msFor{oal_mon(a;b)} k' ∈ dom(ps). inj(k',ps[k']))[u]) ∈ |b|
6. x : |a|
7. y : |b|
8. ↑before(x;map(λx.(fst(x));ps))
9. ¬(y = e ∈ |b|)
⊢ if x (=b) u then y else ps[u] fi 
= ((inj(x,y) ++ (msFor{oal_mon(a;b)} k' ∈ dom(ps)
                   inj(k',if x (=b) k' then y else ps[k'] fi )))[u])
∈ |b|

---

Latex:

---

Latex:

1.  a  :  LOSet
2.  b  :  AbDMon
3.  u  :  |a|
4.  ps  :  |oal(a;b)|
5.  (ps[u])  =  ((msFor\{oal\_mon(a;b)\}  k'  \mmember{}  dom(ps).  inj(k',ps[k']))[u])
6.  x  :  |a|
7.  y  :  |b|
8.  \muparrow{}before(x;map(\mlambda{}x.(fst(x));ps))
9.  \mneg{}(y  =  e)
\mvdash{}  if  x  (=\msubb{})  u  then  y  else  ps[u]  fi 
=  ((inj(x,if  x  (=\msubb{})  x  then  y  else  ps[x]  fi  )  ++  (msFor\{oal\_mon(a;b)\}  k'  \mmember{}  dom(ps)
                                                                                                      inj(k',if  x  (=\msubb{})  k'  then  y  else  ps[k']  fi  )))[u])


By

---

Latex:
((SplitOnNthConclITE  2  THENM  Try  RelRST)  THEN  Try  (CompleteAuto)) 
THEN  Thin  (-1)

---

Home Index