{ [lhs:E#Lhs]. (lhsvars(lhs)  Atom List  (Atom List)) }

{ Proof }



Definitions occuring in Statement :  lhsvars: lhsvars(lhs),  esharp-lhs: E#Lhs,  uall: [x:A]. B[x],  member: t  T,  product: x:A  B[x],  list: type List,  atom: Atom
Definitions :  list-diff: list-diff(eq;as;bs),  atom-deq: AtomDeq,  l-union: as  bs,  spread: spread def,  lambda: x.A[x],  pair: <a, b>,  nil: [],  cons: [car / cdr],  append: as @ bs,  so_lambda: x y.t[x; y],  list_accum: list_accum(x,a.f[x; a];y;l),  eclass: EClass(A[eo; e]),  fpf: a:A fp-> B[a],  base: Base,  type-expr: Error :type-expr,  strong-subtype: strong-subtype(A;B),  le: A  B,  ge: i  j ,  not: A,  less_than: a < b,  uimplies: b supposing a,  and: P  Q,  uiff: uiff(P;Q),  subtype_rel: A r B,  uall: [x:A]. B[x],  isect: x:A. B[x],  axiom: Ax,  all: x:A. B[x],  function: x:A  B[x],  lhsvars: lhsvars(lhs),  esharp-lhs: E#Lhs,  equal: s = t,  spreadn: spread3,  member: t  T,  product: x:A  B[x],  list: type List,  atom: Atom,  Auto: Error :Auto,  CollapseTHEN: Error :CollapseTHEN,  D: Error :D,  RepeatFor: Error :RepeatFor
Lemmas :  l-union_wf,  atom-deq_wf,  list-diff_wf,  esharp-lhs_wf,  list_accum_wf,  append_wf,  Error :type-expr_wf,  member_wf

\mforall{}[lhs:E\#Lhs].  (lhsvars(lhs)  \mmember{}  Atom  List  \mtimes{}  (Atom  List))


Date html generated: 2011_08_17-PM-05_11_39
Last ObjectModification: 2011_02_03-PM-05_47_17

Home Index