Nuprl Lemma : max-fst-property

∀[Info,A,T:Type].
  ∀es:EO+(Info). ∀X:EClass(T × A). ∀e:E.
    {(fst(MaxFst(X)(e)) ~ imax-list(map(λe.(fst(X(e)));≤(X)(e))))
    ∧ (∃mxe:E(X)
        (mxe ≤loc e 
        ∧ (MaxFst(X)(e) = X(mxe) ∈ (T × A))
        ∧ (∀e':E(X). (e' ≤loc e  ⇒ ((fst(X(e'))) ≤ (fst(X(mxe))))))))} 
    supposing ↑e ∈b MaxFst(X) 
  supposing T ⊆r ℤ


Proof




Definitions occuring in Statement :  max-fst-class: MaxFst(X),  es-interface-predecessors: ≤(X)(e),  es-E-interface: E(X),  eclass-val: X(e),  in-eclass: e ∈b X,  eclass: EClass(A[eo; e]),  event-ordering+: EO+(Info),  es-le: e ≤loc e' ,  es-E: E,  imax-list: imax-list(L),  map: map(f;as),  assert: ↑b,  uimplies: b supposing a,  subtype_rel: A ⊆r B,  uall: ∀[x:A]. B[x],  guard: {T},  pi1: fst(t),  le: A ≤ B,  all: ∀x:A. B[x],  exists: ∃x:A. B[x],  implies: P ⇒ Q,  and: P ∧ Q,  lambda: λx.A[x],  product: x:A × B[x],  int: ℤ,  universe: Type,  sqequal: s ~ t,  equal: s = t ∈ T
Lemmas :  max-fst-val,  assert_wf,  in-eclass_wf,  max-fst-class_wf,  subtype_rel_self,  es-interface-subtype_rel2,  es-E_wf,  event-ordering+_subtype,  event-ordering+_wf,  top_wf,  subtype_top,  eclass_wf,  nat_properties,  less_than_transitivity1,  less_than_irreflexivity,  ge_wf,  less_than_wf,  equal-wf-T-base,  colength_wf_list,  list-cases,  list_accum_nil_lemma,  map_nil_lemma,  product_subtype_list,  spread_cons_lemma,  sq_stable__le,  le_antisymmetry_iff,  add_functionality_wrt_le,  add-associates,  add-zero,  zero-add,  le-add-cancel,  nat_wf,  decidable__le,  false_wf,  not-le-2,  condition-implies-le,  minus-add,  minus-one-mul,  add-commutes,  le_wf,  subtract_wf,  not-ge-2,  less-iff-le,  minus-minus,  add-swap,  subtype_base_sq,  set_subtype_base,  int_subtype_base,  list_accum_cons_lemma,  map_cons_lemma,  list_wf,  es-E-interface_wf,  subtype_rel_product,  pi1_wf_top,  list_accum_wf,  lt_int_wf,  eclass-val_wf,  assert_elim,  bool_wf,  bool_subtype_base,  eqtt_to_assert,  assert_of_lt_int,  eqff_to_assert,  equal_wf,  bool_cases_sqequal,  assert-bnot,  imax_wf,  le_int_wf,  map_wf,  assert_of_le_int,  iseg_wf,  append_wf,  cons_wf,  nil_wf,  decidable__equal_int,  not-equal-2,  list_accum_functionality,  imax_unfold,  iff_weakening_equal,  es-interface-predecessors_wf,  subtype_rel_list,  Id_wf,  es-loc_wf,  reduce_tl_nil_lemma,  reduce_hd_cons_lemma,  reduce_tl_cons_lemma,  is-max-fst,  es-interface-predecessors-nonempty,  length_wf_nat,  length_wf,  length_of_nil_lemma,  list_induction,  all_wf,  exists_wf,  or_wf,  l_member_wf,  cons_member,  accum_list_cons_lemma,  es-le_wf,  member-interface-predecessors,  non_neg_length,  length_cons,  accum_list_wf,  le_weakening,  length_of_cons_lemma,  decidable__lt,  squash_wf,  true_wf,  imax-list-ub,  map_length_nat,  set_wf,  cons_neq_nil,  l_exists_iff,  member_map,  es-le-loc,  sq_stable__assert,  member-interface-predecessors-subtype,  assert_witness,  subtype_rel_wf

Latex:
\mforall{}[Info,A,T:Type].
    \mforall{}es:EO+(Info).  \mforall{}X:EClass(T  \mtimes{}  A).  \mforall{}e:E.
        \{(fst(MaxFst(X)(e))  \msim{}  imax-list(map(\mlambda{}e.(fst(X(e)));\mleq{}(X)(e))))
        \mwedge{}  (\mexists{}mxe:E(X)
                (mxe  \mleq{}loc  e 
                \mwedge{}  (MaxFst(X)(e)  =  X(mxe))
                \mwedge{}  (\mforall{}e':E(X).  (e'  \mleq{}loc  e    {}\mRightarrow{}  ((fst(X(e')))  \mleq{}  (fst(X(mxe))))))))\} 
        supposing  \muparrow{}e  \mmember{}\msubb{}  MaxFst(X) 
    supposing  T  \msubseteq{}r  \mBbbZ{}



Date html generated: 2015_07_21-PM-03_38_43
Last ObjectModification: 2015_02_04-PM-06_19_23

Home Index