Step 
*
2
1
1
2
 of Lemma 
assert-bag-all
1. u : 𝔹
2. v : 𝔹 List
3. (↑reduce(λx,y. (x ∧b y);tt;v)) ⇒ (∀b:𝔹. ((b ∈ v) ⇒ b = tt))
⊢ (↑(u ∧b reduce(λx,y. (x ∧b y);tt;v))) ⇒ (∀b:𝔹. ((b ∈ [u / v]) ⇒ b = tt))
BY
 
{ ((RW assert_pushdownC 0 THENM RWO "cons_member" 0) THEN Auto THEN D (-2) THEN Auto) }
 
Latex: 
Latex:
1.  u  :  \mBbbB{}
2.  v  :  \mBbbB{}  List
3.  (\muparrow{}reduce(\mlambda{}x,y.  (x  \mwedge{}\msubb{}  y);tt;v))  {}\mRightarrow{}  (\mforall{}b:\mBbbB{}.  ((b  \mmember{}  v)  {}\mRightarrow{}  b  =  tt))
\mvdash{}  (\muparrow{}(u  \mwedge{}\msubb{}  reduce(\mlambda{}x,y.  (x  \mwedge{}\msubb{}  y);tt;v)))  {}\mRightarrow{}  (\mforall{}b:\mBbbB{}.  ((b  \mmember{}  [u  /  v])  {}\mRightarrow{}  b  =  tt))
 By 
Latex:
((RW  assert\_pushdownC  0  THENM  RWO  "cons\_member"  0)  THEN  Auto  THEN  D  (-2)  THEN  Auto)
Home
Index