Nuprl Lemma : es-prior-match-programmable
∀[Info,A,B:Type]. ∀[R:A ─→ B ─→ 𝔹]. ∀[X:EClass(A)]. ∀[Y:EClass(B)].
  (es-prior-match(R; X; Y) = λp.if R (fst(p)) (snd(p)) then {p} else {} fi [X;Y] ∈ EClass(A × B))
Proof
Definitions occuring in Statement : 
es-prior-match: es-prior-match(R; X; Y), 
es-interface-pair-prior: X;Y, 
es-filter-image: f[X], 
eclass: EClass(A[eo; e]), 
ifthenelse: if b then t else f fi , 
bool: 𝔹, 
uall: ∀[x:A]. B[x], 
pi1: fst(t), 
pi2: snd(t), 
apply: f a, 
lambda: λx.A[x], 
function: x:A ─→ B[x], 
product: x:A × B[x], 
universe: Type, 
equal: s = t ∈ T, 
single-bag: {x}, 
empty-bag: {}
Lemmas : 
es-interface-extensionality, 
es-prior-match_wf, 
es-filter-image_wf, 
bool_wf, 
eqtt_to_assert, 
single-bag_wf, 
eqff_to_assert, 
equal_wf, 
bool_cases_sqequal, 
subtype_base_sq, 
bool_subtype_base, 
assert-bnot, 
empty-bag_wf, 
es-interface-pair-prior_wf, 
in-eclass_wf, 
eclass-val_wf, 
es-E_wf, 
event-ordering+_subtype, 
bag_size_single_lemma, 
false_wf, 
bag_size_empty_lemma, 
es-interface-subtype_rel2, 
top_wf, 
subtype_top, 
es-prior-val_wf, 
bag_only_single_lemma, 
assert_wf, 
eq_int_wf, 
bag-size_wf, 
bag-only_wf2, 
single-valued-bag-single, 
eclass_wf, 
event-ordering+_wf
Latex:
\mforall{}[Info,A,B:Type].  \mforall{}[R:A  {}\mrightarrow{}  B  {}\mrightarrow{}  \mBbbB{}].  \mforall{}[X:EClass(A)].  \mforall{}[Y:EClass(B)].
    (es-prior-match(R;  X;  Y)  =  \mlambda{}p.if  R  (fst(p))  (snd(p))  then  \{p\}  else  \{\}  fi  [X;Y])
Date html generated:
2015_07_21-PM-03_49_42
Last ObjectModification:
2015_01_27-PM-06_06_05
Home
Index