{ 
[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