Nuprl Lemma : rec-combined-class-2

{

[Info,A,B,C:Type].

[F:bag(A)

bag(B)

bag(C)

bag(C)].

[X:EClass(A)].

[Y:EClass(B)].
(F|X, Y, Prior(self)|

EClass(C)) }

{ Proof }

Definitions occuring in Statement : rec-combined-class-2: F|X, Y, Prior(self)|, eclass: EClass(A[eo; e]), uall:

[x:A]. B[x], member: t

T, function: x:A

B[x], universe: Type, bag: bag(T)
Definitions : tactic: Error :tactic, natural_number: $n, lambda:

x.A[x], select: l[i], cons: [car / cdr], nil: [], BHyp: Error :BHyp, Try: Error :Try, Complete: Error :Complete, CollapseTHENA: Error :CollapseTHENA, Auto: Error :Auto, CollapseTHEN: Error :CollapseTHEN, isect:

x:A. B[x], member: t

T, function: x:A

B[x], bag: bag(T), uall:

[x:A]. B[x], universe: Type, equal: s = t, eclass: EClass(A[eo; e]), so_lambda:

x y.t[x; y], rec-combined-class-2: F|X, Y, Prior(self)|, axiom: Ax, all:

x:A. B[x], event-ordering+: EO+(Info), es-E: E, event_ordering: EO, subtype: S

T, rec-combined-class: f|X,(self)'|, quotient: x,y:A//B[x; y], apply: f a, subtype_rel: A

r B, uiff: uiff(P;Q), and: P

Q, product: x:A

B[x], uimplies: b supposing a, less_than: a < b, not:

A, ge: i

j , le: A

B, strong-subtype: strong-subtype(A;B), fpf: a:A fp-> B[a], top: Top, int:

, nat:

, rationals:

, real:

, set: {x:A| B[x]} , false: False, implies: P

Q, void: Void, prop:

, p-outcome: Outcome, int_seg: {i..j

}, list: type List, length: ||as||, label: ...$L... t, lelt: i

j < k, sq_type: SQType(T), decidable: Dec(P), es-E-interface: E(X), same-thread: same-thread(es;p;e;e'), es-r-immediate-pred: es-r-immediate-pred(es;R;e';e), exists:

x:A. B[x], es-fset-loc: i

locs(s), existse-between3:

e

(e1,e2].P[e], existse-between2:

e

[e1,e2].P[e], alle-between2:

e

[e1,e2].P[e], existse-between1:

e

[e1,e2).P[e], alle-between1:

e

[e1,e2).P[e], alle-le:

e

e'.P[e], alle-lt:

e<e'.P[e], existse-le:

e

e'.P[e], existse-before:

e<e'.P[e], es-causle: e c

e', es-le: e

loc e' , es-locl: (e <loc e'), es-causl: (e < e'), infix_ap: x f y, consensus-rcv: consensus-rcv(V;A), cs-precondition: state s may consider v in inning i, cs-archive-blocked: in state s, ws' blocks ws from archiving v in inning i, cs-inning-committable: in state s, inning i could commit v , cs-inning-committed: in state s, inning i has committed v, cs-passed: by state s, a passed inning i without archiving a value, cs-archived: by state s, a archived v in inning i, cs-not-completed: in state s, a has not completed inning i, consensus-state3: consensus-state3(T), l_disjoint: l_disjoint(T;l1;l2), MaName: MaName, Knd: Knd, IdLnk: IdLnk, Id: Id, fset-closed: (s closed under fs), fset: FSet{T}, f-subset: xs

ys, fset-member: a

s, dstype: dstype(TypeNames; d; a), i-closed: i-closed(I), i-finite: i-finite(I), atom: Atom$n, sq_exists:

x:{A| B[x]}, q-rel: q-rel(r;x), qless: r < s, qle: r

s, limited-type: LimitedType, fun-connected: y is f*(x), l_all: (

x

L.P[x]), l_exists: (

x

L. P[x]), squash:

T, prime: prime(a), reducible: reducible(a), inject: Inj(A;B;f), cmp-le: cmp-le(cmp;x;y), l_contains: A

B, nat_plus:

, or: P

Q, union: left + right, guard: {T}
Lemmas : int_subtype_base, decidable__equal_int, subtype_base_sq, es-interface-top, subtype_rel_wf, top_wf, length_wf1, non_neg_length, es-E_wf, event-ordering+_inc, event-ordering+_wf, bag_wf, eclass_wf, rec-combined-class_wf, nat_wf, member_wf, le_wf, not_wf, false_wf, select_wf, int_seg_wf, length_wf_nat, length_nil, length_cons

\mforall{}[Info,A,B,C:Type]. \mforall{}[F:bag(A) {}\mrightarrow{} bag(B) {}\mrightarrow{} bag(C) {}\mrightarrow{} bag(C)]. \mforall{}[X:EClass(A)]. \mforall{}[Y:EClass(B)]. (F|X, Y, Prior(self)| \mmember{} EClass(C)) Date html generated: 2011_08_16-PM-04_54_28 Last ObjectModification: 2011_06_02-PM-05_30_54 Home Index