Metamath Proof Explorer


Theorem s2rn

Description: Range of a length 2 string. (Contributed by Thierry Arnoux, 19-Sep-2023)

Ref Expression
Hypotheses s2rn.i φID
s2rn.j φJD
Assertion s2rn φran⟨“IJ”⟩=IJ

Proof

Step Hyp Ref Expression
1 s2rn.i φID
2 s2rn.j φJD
3 imadmrn ⟨“IJ”⟩dom⟨“IJ”⟩=ran⟨“IJ”⟩
4 1 2 s2cld φ⟨“IJ”⟩WordD
5 wrdfn ⟨“IJ”⟩WordD⟨“IJ”⟩Fn0..^⟨“IJ”⟩
6 s2len ⟨“IJ”⟩=2
7 6 oveq2i 0..^⟨“IJ”⟩=0..^2
8 fzo0to2pr 0..^2=01
9 7 8 eqtri 0..^⟨“IJ”⟩=01
10 9 fneq2i ⟨“IJ”⟩Fn0..^⟨“IJ”⟩⟨“IJ”⟩Fn01
11 10 biimpi ⟨“IJ”⟩Fn0..^⟨“IJ”⟩⟨“IJ”⟩Fn01
12 4 5 11 3syl φ⟨“IJ”⟩Fn01
13 12 fndmd φdom⟨“IJ”⟩=01
14 13 imaeq2d φ⟨“IJ”⟩dom⟨“IJ”⟩=⟨“IJ”⟩01
15 c0ex 0V
16 15 prid1 001
17 16 a1i φ001
18 1ex 1V
19 18 prid2 101
20 19 a1i φ101
21 fnimapr ⟨“IJ”⟩Fn01001101⟨“IJ”⟩01=⟨“IJ”⟩0⟨“IJ”⟩1
22 12 17 20 21 syl3anc φ⟨“IJ”⟩01=⟨“IJ”⟩0⟨“IJ”⟩1
23 s2fv0 ID⟨“IJ”⟩0=I
24 1 23 syl φ⟨“IJ”⟩0=I
25 s2fv1 JD⟨“IJ”⟩1=J
26 2 25 syl φ⟨“IJ”⟩1=J
27 24 26 preq12d φ⟨“IJ”⟩0⟨“IJ”⟩1=IJ
28 14 22 27 3eqtrd φ⟨“IJ”⟩dom⟨“IJ”⟩=IJ
29 3 28 eqtr3id φran⟨“IJ”⟩=IJ