Nuprl Lemma : hdf-compose1-ap

[A,B,C:Type]. ∀[X:hdataflow(A;B)]. ∀[f:B ─→ C]. ∀[a:A].
  X(a) ~ <(fst(X(a))), bag-map(f;snd(X(a)))> supposing valueall-type(C)


Proof




Definitions occuring in Statement :  hdf-compose1: X hdf-ap: X(a) hdataflow: hdataflow(A;B) valueall-type: valueall-type(T) uimplies: supposing a uall: [x:A]. B[x] pi1: fst(t) pi2: snd(t) function: x:A ─→ B[x] pair: <a, b> universe: Type sqequal: t bag-map: bag-map(f;bs)
Lemmas :  hdf-halted_wf bool_wf eqtt_to_assert hdf_ap_halt_lemma hdataflow-ext bag_wf unit_wf2 hdf_halted_inl_red_lemma false_wf hdf_halted_halt_red_lemma bag_map_empty_lemma true_wf eqff_to_assert equal_wf bool_cases_sqequal subtype_base_sq bool_subtype_base assert-bnot hdf-ap-inl hdf-ap-run valueall-type-has-valueall bag-valueall-type bag-map_wf evalall-reduce not_wf valueall-type_wf hdataflow_wf
\mforall{}[A,B,C:Type].  \mforall{}[X:hdataflow(A;B)].  \mforall{}[f:B  {}\mrightarrow{}  C].  \mforall{}[a:A].
    f  o  X(a)  \msim{}  <f  o  (fst(X(a))),  bag-map(f;snd(X(a)))>  supposing  valueall-type(C)



Date html generated: 2015_07_17-AM-08_05_26
Last ObjectModification: 2015_01_27-PM-00_16_35

Home Index