Metamath Proof Explorer


Theorem bnj548

Description: Technical lemma for bnj852 . 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 bnj548.1 No typesetting found for |- ( ta <-> ( f Fn m /\ ph' /\ ps' ) ) with typecode |-
bnj548.2 B = y f i pred y A R
bnj548.3 K = y G i pred y A R
bnj548.4 G = f m C
bnj548.5 R FrSe A τ σ G Fn n
Assertion bnj548 R FrSe A τ σ i m B = K

Proof

Step Hyp Ref Expression
1 bnj548.1 Could not format ( ta <-> ( f Fn m /\ ph' /\ ps' ) ) : No typesetting found for |- ( ta <-> ( f Fn m /\ ph' /\ ps' ) ) with typecode |-
2 bnj548.2 B = y f i pred y A R
3 bnj548.3 K = y G i pred y A R
4 bnj548.4 G = f m C
5 bnj548.5 R FrSe A τ σ G Fn n
6 5 bnj930 R FrSe A τ σ Fun G
7 6 adantr R FrSe A τ σ i m Fun G
8 1 simp1bi τ f Fn m
9 fndm f Fn m dom f = m
10 eleq2 dom f = m i dom f i m
11 10 biimpar dom f = m i m i dom f
12 9 11 sylan f Fn m i m i dom f
13 8 12 sylan τ i m i dom f
14 13 3ad2antl2 R FrSe A τ σ i m i dom f
15 7 14 jca R FrSe A τ σ i m Fun G i dom f
16 4 bnj931 f G
17 15 16 jctil R FrSe A τ σ i m f G Fun G i dom f
18 3anan12 Fun G f G i dom f f G Fun G i dom f
19 17 18 sylibr R FrSe A τ σ i m Fun G f G i dom f
20 funssfv Fun G f G i dom f G i = f i
21 iuneq1 G i = f i y G i pred y A R = y f i pred y A R
22 21 eqcomd G i = f i y f i pred y A R = y G i pred y A R
23 22 2 3 3eqtr4g G i = f i B = K
24 19 20 23 3syl R FrSe A τ σ i m B = K