Theorem bnj1388

Description: Technical lemma for bnj60 . This lemma may no longer be used or have become an indirect lemma of the theorem in question (i.e. a lemma of a lemma... of the theorem). (Contributed by Jonathan Ben-Naim, 3-Jun-2011) (New usage is discouraged.)

	Ref	Expression
Hypotheses	bnj1388.1	$$⊢B=\left\{d|\left(d\subseteq A\wedge \forall x\in dpred\left(x,A,R\right)\subseteq d\right)\right\}$$
	bnj1388.2	$$⊢Y=⟨x,{f\upharpoonright }_{pred\left(x,A,R\right)}⟩$$
	bnj1388.3	$$⊢C=\left\{f|\exists d\in B\left(fFnd\wedge \forall x\in df\left(x\right)=G\left(Y\right)\right)\right\}$$
	bnj1388.4	$$⊢\tau \leftrightarrow \left(f\in C\wedge \mathrm{dom}f=\left\{x\right\}\cup trCl\left(x,A,R\right)\right)$$
	bnj1388.5	$$⊢D=\left\{x\in A|\neg \exists f\tau \right\}$$
	bnj1388.6	$$⊢\psi \leftrightarrow \left(RFrSeA\wedge D\ne \varnothing \right)$$
	bnj1388.7	$$⊢\chi \leftrightarrow \left(\psi \wedge x\in D\wedge \forall y\in D\neg yRx\right)$$
	bnj1388.8	No typesetting found for |- ( ta' <-> [. y / x ]. ta ) with typecode |-
Assertion	bnj1388	Could not format assertion : No typesetting found for |- ( ch -> A. y e. _pred ( x , A , R ) E. f ta' ) with typecode |-

Proof

Step	Hyp	Ref	Expression
1		bnj1388.1	$$⊢B=\left\{d|\left(d\subseteq A\wedge \forall x\in dpred\left(x,A,R\right)\subseteq d\right)\right\}$$
2		bnj1388.2	$$⊢Y=⟨x,{f\upharpoonright }_{pred\left(x,A,R\right)}⟩$$
3		bnj1388.3	$$⊢C=\left\{f|\exists d\in B\left(fFnd\wedge \forall x\in df\left(x\right)=G\left(Y\right)\right)\right\}$$
4		bnj1388.4	$$⊢\tau \leftrightarrow \left(f\in C\wedge \mathrm{dom}f=\left\{x\right\}\cup trCl\left(x,A,R\right)\right)$$
5		bnj1388.5	$$⊢D=\left\{x\in A|\neg \exists f\tau \right\}$$
6		bnj1388.6	$$⊢\psi \leftrightarrow \left(RFrSeA\wedge D\ne \varnothing \right)$$
7		bnj1388.7	$$⊢\chi \leftrightarrow \left(\psi \wedge x\in D\wedge \forall y\in D\neg yRx\right)$$
8		bnj1388.8	Could not format ( ta' <-> [. y / x ]. ta ) : No typesetting found for |- ( ta' <-> [. y / x ]. ta ) with typecode |-
9		nfv	$$⊢Ⅎy\psi$$
10		nfv	$$⊢Ⅎyx\in D$$
11		nfra1	$$⊢Ⅎy\forall y\in D\neg yRx$$
12	9 10 11	nf3an	$$⊢Ⅎy\left(\psi \wedge x\in D\wedge \forall y\in D\neg yRx\right)$$
13	7 12	nfxfr	$$⊢Ⅎy\chi$$
14		bnj1152	$$⊢y\in pred\left(x,A,R\right)\leftrightarrow \left(y\in A\wedge yRx\right)$$
15	14	simplbi	$$⊢y\in pred\left(x,A,R\right)\to y\in A$$
16	15	adantl	$$⊢\left(\chi \wedge y\in pred\left(x,A,R\right)\right)\to y\in A$$
17	14	bilani	$$⊢\left(\chi \wedge y\in pred\left(x,A,R\right)\right)\to \left(y\in A\wedge yRx\right)$$
18	17	simprd	$$⊢\left(\chi \wedge y\in pred\left(x,A,R\right)\right)\to yRx$$
19	7	simp3bi	$$⊢\chi \to \forall y\in D\neg yRx$$
20	19	adantr	$$⊢\left(\chi \wedge y\in pred\left(x,A,R\right)\right)\to \forall y\in D\neg yRx$$
21		df-ral	$$⊢\forall y\in D\neg yRx\leftrightarrow \forall y\left(y\in D\to \neg yRx\right)$$
22		con2b	$$⊢\left(y\in D\to \neg yRx\right)\leftrightarrow \left(yRx\to \neg y\in D\right)$$
23	22	albii	$$⊢\forall y\left(y\in D\to \neg yRx\right)\leftrightarrow \forall y\left(yRx\to \neg y\in D\right)$$
24	21 23	bitri	$$⊢\forall y\in D\neg yRx\leftrightarrow \forall y\left(yRx\to \neg y\in D\right)$$
25		sp	$$⊢\forall y\left(yRx\to \neg y\in D\right)\to \left(yRx\to \neg y\in D\right)$$
26	25	impcom	$$⊢\left(yRx\wedge \forall y\left(yRx\to \neg y\in D\right)\right)\to \neg y\in D$$
27	24 26	sylan2b	$$⊢\left(yRx\wedge \forall y\in D\neg yRx\right)\to \neg y\in D$$
28	18 20 27	syl2anc	$$⊢\left(\chi \wedge y\in pred\left(x,A,R\right)\right)\to \neg y\in D$$
29	5	eleq2i	$$⊢y\in D\leftrightarrow y\in \left\{x\in A|\neg \exists f\tau \right\}$$
30		nfcv	$$⊢\underset{\_}{Ⅎ}xy$$
31		nfcv	$$⊢\underset{\_}{Ⅎ}xA$$
32		nfsbc1v	$$⊢Ⅎx\underset{\dot{}}{[}y/x\underset{\dot{}}{]}\tau$$
33	8 32	nfxfr	Could not format F/ x ta' : No typesetting found for |- F/ x ta' with typecode |-
34	33	nfex	Could not format F/ x E. f ta' : No typesetting found for |- F/ x E. f ta' with typecode |-
35	34	nfn	Could not format F/ x -. E. f ta' : No typesetting found for |- F/ x -. E. f ta' with typecode |-
36		sbceq1a	$$⊢x=y\to \left(\tau \leftrightarrow \underset{\dot{}}{[}y/x\underset{\dot{}}{]}\tau \right)$$
37	36 8	bitr4di	Could not format ( x = y -> ( ta <-> ta' ) ) : No typesetting found for |- ( x = y -> ( ta <-> ta' ) ) with typecode |-
38	37	exbidv	Could not format ( x = y -> ( E. f ta <-> E. f ta' ) ) : No typesetting found for |- ( x = y -> ( E. f ta <-> E. f ta' ) ) with typecode |-
39	38	notbid	Could not format ( x = y -> ( -. E. f ta <-> -. E. f ta' ) ) : No typesetting found for |- ( x = y -> ( -. E. f ta <-> -. E. f ta' ) ) with typecode |-
40	30 31 35 39	elrabf	Could not format ( y e. { x e. A | -. E. f ta } <-> ( y e. A /\ -. E. f ta' ) ) : No typesetting found for |- ( y e. { x e. A | -. E. f ta } <-> ( y e. A /\ -. E. f ta' ) ) with typecode |-
41	29 40	bitri	Could not format ( y e. D <-> ( y e. A /\ -. E. f ta' ) ) : No typesetting found for |- ( y e. D <-> ( y e. A /\ -. E. f ta' ) ) with typecode |-
42	28 41	sylnib	Could not format ( ( ch /\ y e. _pred ( x , A , R ) ) -> -. ( y e. A /\ -. E. f ta' ) ) : No typesetting found for |- ( ( ch /\ y e. _pred ( x , A , R ) ) -> -. ( y e. A /\ -. E. f ta' ) ) with typecode |-
43		iman	Could not format ( ( y e. A -> E. f ta' ) <-> -. ( y e. A /\ -. E. f ta' ) ) : No typesetting found for |- ( ( y e. A -> E. f ta' ) <-> -. ( y e. A /\ -. E. f ta' ) ) with typecode |-
44	42 43	sylibr	Could not format ( ( ch /\ y e. _pred ( x , A , R ) ) -> ( y e. A -> E. f ta' ) ) : No typesetting found for |- ( ( ch /\ y e. _pred ( x , A , R ) ) -> ( y e. A -> E. f ta' ) ) with typecode |-
45	16 44	mpd	Could not format ( ( ch /\ y e. _pred ( x , A , R ) ) -> E. f ta' ) : No typesetting found for |- ( ( ch /\ y e. _pred ( x , A , R ) ) -> E. f ta' ) with typecode |-
46	45	ex	Could not format ( ch -> ( y e. _pred ( x , A , R ) -> E. f ta' ) ) : No typesetting found for |- ( ch -> ( y e. _pred ( x , A , R ) -> E. f ta' ) ) with typecode |-
47	13 46	ralrimi	Could not format ( ch -> A. y e. _pred ( x , A , R ) E. f ta' ) : No typesetting found for |- ( ch -> A. y e. _pred ( x , A , R ) E. f ta' ) with typecode |-