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