{ [P:esharp_exp()  ]
    ((name:Atom. P[esharpvar(name)])
     (val:Base. P[esharpbasic(val)])
     (name:Atom. P[esharpop(name)])
     (fun,arg:esharp_exp().  (P[fun]  P[arg]  P[esharpapply(fun;arg)]))
     (var:Atom. body:esharp_exp().  (P[body]  P[esharplambda(var;body)]))
     (lhs:E#Lhs. rsh,body:esharp_exp().
          (P[rsh]  P[body]  P[esharplet(lhs;rsh;body)]))
     {x:esharp_exp(). P[x]}) }

{ Proof }



Definitions occuring in Statement :  esharplet: esharplet(lhs;rsh;body) esharplambda: esharplambda(var;body) esharpapply: esharpapply(fun;arg) esharpop: esharpop(name) esharpbasic: esharpbasic(val) esharpvar: esharpvar(name) esharp_exp: esharp_exp() esharp-lhs: E#Lhs uall: [x:A]. B[x] prop: guard: {T} so_apply: x[s] all: x:A. B[x] implies: P  Q function: x:A  B[x] base: Base atom: Atom
Definitions :  type-expr: Error :type-expr,  inr: inr x  fpf: a:A fp-B[a] decision: Decision inl: inl x  tag-by: zT ldag: LabeledDAG(T) labeled-graph: LabeledGraph(T) record+: record+ record: record(x.T[x]) eclass: EClass(A[eo; e]) fset: FSet{T} dataflow: dataflow(A;B) isect2: T1  T2 b-union: A  B rev_implies: P  Q or: P  Q iff: P  Q bag: bag(T) list: type List set: {x:A| B[x]}  top: Top true: True so_lambda: x.t[x] type-monotone: Monotone(T.F[T]) union: left + right esharpvar: esharpvar(name) esharpbasic: esharpbasic(val) esharpop: esharpop(name) esharpapply: esharpapply(fun;arg) esharplambda: esharplambda(var;body) esharplet: esharplet(lhs;rsh;body) equal: s = t member: t  T rec: rec(x.A[x]) strong-subtype: strong-subtype(A;B) le: A  B ge: i  j  not: A less_than: a < b uimplies: b supposing a product: x:A  B[x] and: P  Q uiff: uiff(P;Q) subtype_rel: A r B esharp-lhs: E#Lhs guard: {T} uall: [x:A]. B[x] isect: x:A. B[x] esharp_exp: esharp_exp() universe: Type base: Base so_apply: x[s] apply: f a atom: Atom prop: implies: P  Q all: x:A. B[x] function: x:A  B[x]
Lemmas :  base_wf esharp-lhs_wf uall_wf subtype_rel_wf type-monotone_wf esharp_exp_wf esharpvar_wf esharpbasic_wf esharpop_wf esharpapply_wf esharplambda_wf esharplet_wf subtype_rel_sum subtype_rel_simple_product member_wf

\mforall{}[P:esharp\_exp()  {}\mrightarrow{}  \mBbbP{}]
    ((\mforall{}name:Atom.  P[esharpvar(name)])
    {}\mRightarrow{}  (\mforall{}val:Base.  P[esharpbasic(val)])
    {}\mRightarrow{}  (\mforall{}name:Atom.  P[esharpop(name)])
    {}\mRightarrow{}  (\mforall{}fun,arg:esharp\_exp().    (P[fun]  {}\mRightarrow{}  P[arg]  {}\mRightarrow{}  P[esharpapply(fun;arg)]))
    {}\mRightarrow{}  (\mforall{}var:Atom.  \mforall{}body:esharp\_exp().    (P[body]  {}\mRightarrow{}  P[esharplambda(var;body)]))
    {}\mRightarrow{}  (\mforall{}lhs:E\#Lhs.  \mforall{}rsh,body:esharp\_exp().    (P[rsh]  {}\mRightarrow{}  P[body]  {}\mRightarrow{}  P[esharplet(lhs;rsh;body)]))
    {}\mRightarrow{}  \{\mforall{}x:esharp\_exp().  P[x]\})


Date html generated: 2011_08_17-PM-05_14_38
Last ObjectModification: 2011_02_03-PM-04_33_24

Home Index