Nuprl Lemma : sqequal-spread-cbva-weak

∀[a:Top × Top]. ∀[b,F:Top].  (let x ←─ a in let u,v = x in F[u;v] ~ let u,v = a in let x ←─ u in let y ←─ v in F[x;y])


Proof




Definitions occuring in Statement :  callbyvalueall: callbyvalueall,  uall: ∀[x:A]. B[x],  top: Top,  so_apply: x[s1;s2],  spread: spread def,  product: x:A × B[x],  sqequal: s ~ t
Lemmas :  lifting-callbyvalueall-pair,  top_wf
\mforall{}[a:Top  \mtimes{}  Top].  \mforall{}[b,F:Top].
    (let  x  \mleftarrow{}{}  a
      in  let  u,v  =  x 
            in  F[u;v]  \msim{}  let  u,v  =  a 
                                    in  let  x  \mleftarrow{}{}  u
                                          in  let  y  \mleftarrow{}{}  v
                                                in  F[x;y])



Date html generated: 2015_07_17-AM-08_17_03
Last ObjectModification: 2015_01_27-AM-11_51_14

Home Index