Nuprl Lemma : bind-class-assoc

[Info,T,S,U:Type]. [X:EClass(T)]. [Y:T  EClass(S)]. [Z:S  EClass(U)].
  (X >xY[x] >yZ[y] = X >xY[x] >yZ[y])


Proof not projected




Definitions occuring in Statement :  bind-class: X >xY[x] eclass: EClass(A[eo; e]) uall: [x:A]. B[x] so_apply: x[s] function: x:A  B[x] universe: Type equal: s = t
Definitions :  uall: [x:A]. B[x] eclass: EClass(A[eo; e]) bind-class: X >xY[x] member: t  T prop: l_all: (xL.P[x]) all: x:A. B[x] subtype: S  T so_lambda: x.t[x] implies: P  Q so_lambda: x y.t[x; y] squash: T true: True so_apply: x[s] and: P  Q iff: P  Q rev_implies: P  Q ifthenelse: if b then t else f fi  btrue: tt cand: A c B bfalse: ff uimplies: b supposing a so_apply: x[s1;s2] bool: unit: Unit guard: {T} bag-filter: [xb|p[x]] it:
Lemmas :  list_set_type es-E_wf event-ordering+_inc es-le-before_wf2 es-le_wf member-es-le-before l_member_wf eclass_wf event-ordering+_wf subtype_rel_self list-subtype-bag equal_wf squash_wf true_wf bag_wf and_wf eo-forward_wf bag-combine_wf es-loc_wf Id_wf member-eo-forward-E eo-forward-forward event_ordering_wf bag-combine-filter es-ble_wf bool_wf iff_transitivity assert_wf iff_weakening_uiff eqtt_to_assert assert-es-ble bnot_wf not_wf eqff_to_assert assert_of_bnot not_functionality_wrt_iff empty-bag_wf bag-combine-com

\mforall{}[Info,T,S,U:Type].  \mforall{}[X:EClass(T)].  \mforall{}[Y:T  {}\mrightarrow{}  EClass(S)].  \mforall{}[Z:S  {}\mrightarrow{}  EClass(U)].
    (X  >x>  Y[x]  >y>  Z[y]  =  X  >x>  Y[x]  >y>  Z[y])


Date html generated: 2012_01_23-PM-12_22_52
Last ObjectModification: 2011_12_31-AM-11_18_44

Home Index