Step
*
of Lemma
binary_map_case-wf2
∀[X,T,Key:Type]. ∀[x:binary-map(T;Key)]. ∀[E:X]. ∀[F:key:Key
                                                     ─→ value:T
                                                     ─→ cnt:ℤ
                                                     ─→ left:binary-map(T;Key)
                                                     ─→ right:binary-map(T;Key)
                                                     ─→ X].
  (binary_map_case(x;E;key,value,cnt,left,right.F[key;value;cnt;left;right]) ∈ X)
BY
{ (Intros
   THEN Unhide
   THEN RepeatFor 2 (DVar `x')
   THEN Unfold `binary_map_case` 0
   THEN RecUnfold `binary_map_ind` 0⋅
   THEN RepUR ``bm_E bm_T`` 0
   THEN Try (RWO "bm_cnt_prop_T" (-3))
   THEN Auto) }
Latex:
\mforall{}[X,T,Key:Type].  \mforall{}[x:binary-map(T;Key)].  \mforall{}[E:X].  \mforall{}[F:key:Key
                                                                                                          {}\mrightarrow{}  value:T
                                                                                                          {}\mrightarrow{}  cnt:\mBbbZ{}
                                                                                                          {}\mrightarrow{}  left:binary-map(T;Key)
                                                                                                          {}\mrightarrow{}  right:binary-map(T;Key)
                                                                                                          {}\mrightarrow{}  X].
    (binary\_map\_case(x;E;key,value,cnt,left,right.F[key;value;cnt;left;right])  \mmember{}  X)
By
(Intros
  THEN  Unhide
  THEN  RepeatFor  2  (DVar  `x')
  THEN  Unfold  `binary\_map\_case`  0
  THEN  RecUnfold  `binary\_map\_ind`  0\mcdot{}
  THEN  RepUR  ``bm\_E  bm\_T``  0
  THEN  Try  (RWO  "bm\_cnt\_prop\_T"  (-3))
  THEN  Auto)
Home
Index