Step
*
of Lemma
ifthenelse_functionality_wrt_uimplies2
∀b1,b2:𝔹.  ∀[p,q1,q2:ℙ].  (b1 = b2 
⇒ {q2 supposing q1} 
⇒ {if b1 then p else q1 fi  
⇒ if b2 then p else q2 fi })
BY
{ (Unfold `guard` 0
   THEN Auto
   THEN (AutoSplit THEN ElimVar `b1' THEN Auto THEN All Reduce)
   THEN RepeatFor 2 (MoveToConcl (-1))
   THEN AutoSplit) }
Latex:
Latex:
\mforall{}b1,b2:\mBbbB{}.
    \mforall{}[p,q1,q2:\mBbbP{}].
        (b1  =  b2  {}\mRightarrow{}  \{q2  supposing  q1\}  {}\mRightarrow{}  \{if  b1  then  p  else  q1  fi    {}\mRightarrow{}  if  b2  then  p  else  q2  fi  \})
By
Latex:
(Unfold  `guard`  0
  THEN  Auto
  THEN  (AutoSplit  THEN  ElimVar  `b1'  THEN  Auto  THEN  All  Reduce)
  THEN  RepeatFor  2  (MoveToConcl  (-1))
  THEN  AutoSplit)
Home
Index