Nuprl Lemma : cond_rel_equivalent
∀[T:Type]. ∀[R,Q:T ─→ T ─→ ℙ]. ∀[P:T ─→ ℙ].
(Trans(T;x,y.Q x y)
⇒ R => Q
⇒ (∀x,y:T. (((P x) ∧ (P y)) ⇒ (((R x y) ∨ (x = y ∈ T)) ∨ (R y x))))
⇒ (∀x,y:T. (((P x) ∧ (P y)) ⇒ (R x y ⇐⇒ Q x y)))
supposing ∀x,y:T. ((Q x y) ⇒ (¬(Q y x))))
Proof
Definitions occuring in Statement :
rel_implies: R1 => R2,
trans: Trans(T;x,y.E[x; y]),
uimplies: b supposing a,
uall: ∀[x:A]. B[x],
prop: ℙ,
all: ∀x:A. B[x],
iff: P ⇐⇒ Q,
not: ¬A,
implies: P ⇒ Q,
or: P ∨ Q,
and: P ∧ Q,
apply: f a,
function: x:A ─→ B[x],
universe: Type,
equal: s = t ∈ T
Lemmas :
all_wf,
or_wf,
equal_wf,
rel_implies_wf,
not_wf,
trans_wf
\mforall{}[T:Type]. \mforall{}[R,Q:T {}\mrightarrow{} T {}\mrightarrow{} \mBbbP{}]. \mforall{}[P:T {}\mrightarrow{} \mBbbP{}].
(Trans(T;x,y.Q x y)
{}\mRightarrow{} R => Q
{}\mRightarrow{} (\mforall{}x,y:T. (((P x) \mwedge{} (P y)) {}\mRightarrow{} (((R x y) \mvee{} (x = y)) \mvee{} (R y x))))
{}\mRightarrow{} (\mforall{}x,y:T. (((P x) \mwedge{} (P y)) {}\mRightarrow{} (R x y \mLeftarrow{}{}\mRightarrow{} Q x y)))
supposing \mforall{}x,y:T. ((Q x y) {}\mRightarrow{} (\mneg{}(Q y x))))
Date html generated:
2015_07_17-AM-09_09_20
Last ObjectModification:
2015_01_27-PM-00_46_37
Home
Index