opsqrlem6 - Hilbert Space Explorer

	Hilbert Space Explorer		< Previous Next > Nearby theorems
Mirrors > Home > HSE Home > Th. List > opsqrlem6		Structured version Visualization version GIF version

Theorem opsqrlem6 32544

Description: Lemma for opsqri . (Contributed by NM, 23-Aug-2006.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
opsqrlem2.1	⊢ 𝑇 ∈ HrmOp
opsqrlem2.2	⊢ 𝑆 = (𝑥 ∈ HrmOp, 𝑦 ∈ HrmOp ↦ (𝑥 +_op ((1 / 2) ·_op (𝑇 −_op (𝑥 ∘ 𝑥)))))
opsqrlem2.3	⊢ 𝐹 = seq1(𝑆, (ℕ × { 0_hop }))
opsqrlem6.4	⊢ 𝑇 ≤_op I_op

**Assertion**
Ref	Expression
opsqrlem6	⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) ≤_op I_op )

Distinct variable group: 𝑥,𝑦,𝑇 Allowed substitution hints: 𝑆(𝑥, 𝑦) 𝐹(𝑥, 𝑦) 𝑁(𝑥, 𝑦)

Proof of Theorem opsqrlem6 Dummy variables 𝑗 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6885	. . 3 ⊢ (𝑗 = 1 → (𝐹‘𝑗) = (𝐹‘1))
2	1	breq1d 5121	. 2 ⊢ (𝑗 = 1 → ((𝐹‘𝑗) ≤_op I_op ↔ (𝐹‘1) ≤_op I_op ))
3		fveq2 6885	. . 3 ⊢ (𝑗 = (𝑘 + 1) → (𝐹‘𝑗) = (𝐹‘(𝑘 + 1)))
4	3	breq1d 5121	. 2 ⊢ (𝑗 = (𝑘 + 1) → ((𝐹‘𝑗) ≤_op I_op ↔ (𝐹‘(𝑘 + 1)) ≤_op I_op ))
5		fveq2 6885	. . 3 ⊢ (𝑗 = 𝑁 → (𝐹‘𝑗) = (𝐹‘𝑁))
6	5	breq1d 5121	. 2 ⊢ (𝑗 = 𝑁 → ((𝐹‘𝑗) ≤_op I_op ↔ (𝐹‘𝑁) ≤_op I_op ))
7		opsqrlem2.1	. . . 4 ⊢ 𝑇 ∈ HrmOp
8		opsqrlem2.2	. . . 4 ⊢ 𝑆 = (𝑥 ∈ HrmOp, 𝑦 ∈ HrmOp ↦ (𝑥 +_op ((1 / 2) ·_op (𝑇 −_op (𝑥 ∘ 𝑥)))))
9		opsqrlem2.3	. . . 4 ⊢ 𝐹 = seq1(𝑆, (ℕ × { 0_hop }))
10	7, 8, 9	opsqrlem2 32540	. . 3 ⊢ (𝐹‘1) = 0_hop
11		idleop 32530	. . 3 ⊢ 0_hop ≤_op I_op
12	10, 11	eqbrtri 5134	. 2 ⊢ (𝐹‘1) ≤_op I_op
13		idhmop 32381	. . . . . . . 8 ⊢ I_op ∈ HrmOp
14	7, 8, 9	opsqrlem4 32542	. . . . . . . . 9 ⊢ 𝐹:ℕ⟶HrmOp
15	14	ffvelcdmi 7082	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘) ∈ HrmOp)
16		hmopd 32421	. . . . . . . 8 ⊢ (( I_op ∈ HrmOp ∧ (𝐹‘𝑘) ∈ HrmOp) → ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp)
17	13, 15, 16	sylancr 599	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp)
18		eqid 2765	. . . . . . . 8 ⊢ (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘)))
19		hmopco 32422	. . . . . . . 8 ⊢ ((( I_op −_op (𝐹‘𝑘)) ∈ HrmOp ∧ ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp ∧ (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘)))) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp)
20	18, 19	mp3an3 1479	. . . . . . 7 ⊢ ((( I_op −_op (𝐹‘𝑘)) ∈ HrmOp ∧ ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp)
21	17, 17, 20	syl2anc 596	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp)
22		leopsq 32528	. . . . . . 7 ⊢ (( I_op −_op (𝐹‘𝑘)) ∈ HrmOp → 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))))
23	17, 22	syl 18	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))))
24		opsqrlem6.4	. . . . . . . 8 ⊢ 𝑇 ≤_op I_op
25		leop3 32524	. . . . . . . . 9 ⊢ ((𝑇 ∈ HrmOp ∧ I_op ∈ HrmOp) → (𝑇 ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op 𝑇)))
26	7, 13, 25	mp2an 705	. . . . . . . 8 ⊢ (𝑇 ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op 𝑇))
27	24, 26	mpbi 233	. . . . . . 7 ⊢ 0_hop ≤_op ( I_op −_op 𝑇)
28		hmopd 32421	. . . . . . . . 9 ⊢ (( I_op ∈ HrmOp ∧ 𝑇 ∈ HrmOp) → ( I_op −_op 𝑇) ∈ HrmOp)
29	13, 7, 28	mp2an 705	. . . . . . . 8 ⊢ ( I_op −_op 𝑇) ∈ HrmOp
30		leopadd 32531	. . . . . . . 8 ⊢ ((((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp ∧ ( I_op −_op 𝑇) ∈ HrmOp) ∧ ( 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∧ 0_hop ≤_op ( I_op −_op 𝑇))) → 0_hop ≤_op ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)))
31	29, 30	mpanl2 714	. . . . . . 7 ⊢ (((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp ∧ ( 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∧ 0_hop ≤_op ( I_op −_op 𝑇))) → 0_hop ≤_op ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)))
32	27, 31	mpanr2 717	. . . . . 6 ⊢ (((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp ∧ 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘)))) → 0_hop ≤_op ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)))
33	21, 23, 32	syl2anc 596	. . . . 5 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)))
34		2cn 12327	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
35		hmopf 32273	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑘) ∈ HrmOp → (𝐹‘𝑘): ℋ⟶ ℋ)
36	15, 35	syl 18	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘): ℋ⟶ ℋ)
37		homulcl 32158	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ)
38	34, 36, 37	sylancr 599	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ)
39		hmopf 32273	. . . . . . . . . . 11 ⊢ (𝑇 ∈ HrmOp → 𝑇: ℋ⟶ ℋ)
40	7, 39	ax-mp 5	. . . . . . . . . 10 ⊢ 𝑇: ℋ⟶ ℋ
41		fco 6734	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)
42	36, 36, 41	syl2anc 596	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)
43		hosubcl 32172	. . . . . . . . . 10 ⊢ ((𝑇: ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
44	40, 42, 43	sylancr 599	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
45		hmopf 32273	. . . . . . . . . . . 12 ⊢ ( I_op ∈ HrmOp → I_op : ℋ⟶ ℋ)
46	13, 45	ax-mp 5	. . . . . . . . . . 11 ⊢ I_op : ℋ⟶ ℋ
47		homulcl 32158	. . . . . . . . . . 11 ⊢ ((2 ∈ ℂ ∧ I_op : ℋ⟶ ℋ) → (2 ·_op I_op ): ℋ⟶ ℋ)
48	34, 46, 47	mp2an 705	. . . . . . . . . 10 ⊢ (2 ·_op I_op ): ℋ⟶ ℋ
49		hosubsub4 32217	. . . . . . . . . 10 ⊢ (((2 ·_op I_op ): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
50	48, 49	mp3an1 1477	. . . . . . . . 9 ⊢ (((2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
51	38, 44, 50	syl2anc 596	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
52		hosubcl 32172	. . . . . . . . . . . . . . 15 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ)
53	42, 38, 52	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ)
54		hoadd32 32182	. . . . . . . . . . . . . . 15 ⊢ (( I_op : ℋ⟶ ℋ ∧ (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ ∧ I_op : ℋ⟶ ℋ) → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
55	46, 46, 54	mp3an13 1481	. . . . . . . . . . . . . 14 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
56	53, 55	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
57		ho2times 32218	. . . . . . . . . . . . . . 15 ⊢ ( I_op : ℋ⟶ ℋ → (2 ·_op I_op ) = ( I_op +_op I_op ))
58	46, 57	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ (2 ·_op I_op ) = ( I_op +_op I_op )
59	58	oveq1i 7426	. . . . . . . . . . . . 13 ⊢ ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))))
60	56, 59	eqtr4di 2818	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
61		hoaddsubass 32214	. . . . . . . . . . . . . 14 ⊢ (((2 ·_op I_op ): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
62	48, 61	mp3an1 1477	. . . . . . . . . . . . 13 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
63	42, 38, 62	syl2anc 596	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
64	60, 63	eqtr4d 2803	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))))
65	64	oveq1d 7431	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇))
66		hoaddcl 32157	. . . . . . . . . . . 12 ⊢ (( I_op : ℋ⟶ ℋ ∧ (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ) → ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ)
67	46, 53, 66	sylancr 599	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ)
68		hoaddsubass 32214	. . . . . . . . . . . 12 ⊢ ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ ∧ I_op : ℋ⟶ ℋ ∧ 𝑇: ℋ⟶ ℋ) → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
69	46, 40, 68	mp3an23 1482	. . . . . . . . . . 11 ⊢ (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
70	67, 69	syl 18	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
71		hoaddcl 32157	. . . . . . . . . . . 12 ⊢ (((2 ·_op I_op ): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → ((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
72	48, 42, 71	sylancr 599	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
73		hosubsub4 32217	. . . . . . . . . . . 12 ⊢ ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ ∧ 𝑇: ℋ⟶ ℋ) → ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
74	40, 73	mp3an3 1479	. . . . . . . . . . 11 ⊢ ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
75	72, 38, 74	syl2anc 596	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
76	65, 70, 75	3eqtr3d 2808	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
77		hosubadd4 32213	. . . . . . . . . . . 12 ⊢ ((((2 ·_op I_op ): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) ∧ (𝑇: ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)) → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
78	40, 77	mpanr1 716	. . . . . . . . . . 11 ⊢ ((((2 ·_op I_op ): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
79	48, 78	mpanl1 713	. . . . . . . . . 10 ⊢ (((2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
80	38, 42, 79	syl2anc 596	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
81	76, 80	eqtr4d 2803	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
82		halfcn 12469	. . . . . . . . . . . 12 ⊢ (1 / 2) ∈ ℂ
83		homulcl 32158	. . . . . . . . . . . 12 ⊢ (((1 / 2) ∈ ℂ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ)
84	82, 44, 83	sylancr 599	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ)
85		hoadddi 32202	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℂ ∧ (𝐹‘𝑘): ℋ⟶ ℋ ∧ ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ) → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
86	34, 85	mp3an1 1477	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ) → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
87	36, 84, 86	syl2anc 596	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
88		2thalfe1 12359	. . . . . . . . . . . . 13 ⊢ (2 · (1 / 2)) = 1
89	88	oveq1i 7426	. . . . . . . . . . . 12 ⊢ ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
90		homulass 32201	. . . . . . . . . . . . . 14 ⊢ ((2 ∈ ℂ ∧ (1 / 2) ∈ ℂ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
91	34, 82, 90	mp3an12 1480	. . . . . . . . . . . . 13 ⊢ ((𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
92	44, 91	syl 18	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
93		homullid 32199	. . . . . . . . . . . . 13 ⊢ ((𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ → (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
94	44, 93	syl 18	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
95	89, 92, 94	3eqtr3a 2824	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
96	95	oveq2d 7432	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
97	87, 96	eqtrd 2800	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
98	97	oveq2d 7432	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
99	51, 81, 98	3eqtr4d 2810	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
100		hoaddcl 32157	. . . . . . . . 9 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ) → ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ)
101	36, 84, 100	syl2anc 596	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ)
102		hosubdi 32207	. . . . . . . . 9 ⊢ ((2 ∈ ℂ ∧ I_op : ℋ⟶ ℋ ∧ ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ) → (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
103	34, 46, 102	mp3an12 1480	. . . . . . . 8 ⊢ (((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ → (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
104	101, 103	syl 18	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
105	99, 104	eqtr4d 2803	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
106		hosubcl 32172	. . . . . . . . . 10 ⊢ (( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ)
107	46, 36, 106	sylancr 599	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ)
108		hocsubdir 32184	. . . . . . . . . 10 ⊢ (( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ ∧ ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
109	46, 108	mp3an1 1477	. . . . . . . . 9 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
110	36, 107, 109	syl2anc 596	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
111		hmoplin 32341	. . . . . . . . . . . . . . 15 ⊢ ( I_op ∈ HrmOp → I_op ∈ LinOp)
112	13, 111	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ I_op ∈ LinOp
113		hoddi 32389	. . . . . . . . . . . . . 14 ⊢ (( I_op ∈ LinOp ∧ I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
114	112, 46, 113	mp3an12 1480	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
115	36, 114	syl 18	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
116	46	hoid1i 32188	. . . . . . . . . . . . . 14 ⊢ ( I_op ∘ I_op ) = I_op
117	116	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ I_op ) = I_op )
118		hoico2 32156	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ( I_op ∘ (𝐹‘𝑘)) = (𝐹‘𝑘))
119	36, 118	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ (𝐹‘𝑘)) = (𝐹‘𝑘))
120	117, 119	oveq12d 7434	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))) = ( I_op −_op (𝐹‘𝑘)))
121	115, 120	eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = ( I_op −_op (𝐹‘𝑘)))
122		hmoplin 32341	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘) ∈ HrmOp → (𝐹‘𝑘) ∈ LinOp)
123	15, 122	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘) ∈ LinOp)
124		hoddi 32389	. . . . . . . . . . . . . 14 ⊢ (((𝐹‘𝑘) ∈ LinOp ∧ I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
125	46, 124	mp3an2 1478	. . . . . . . . . . . . 13 ⊢ (((𝐹‘𝑘) ∈ LinOp ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
126	123, 36, 125	syl2anc 596	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
127		hoico1 32155	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ((𝐹‘𝑘) ∘ I_op ) = (𝐹‘𝑘))
128	36, 127	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ I_op ) = (𝐹‘𝑘))
129	128	oveq1d 7431	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) = ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
130	126, 129	eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
131	121, 130	oveq12d 7434	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
132	36, 46	jctil 529	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ))
133		hosubadd4 32213	. . . . . . . . . . 11 ⊢ ((( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) ∧ ((𝐹‘𝑘): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)) → (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
134	132, 36, 42, 133	syl12anc 850	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
135	131, 134	eqtrd 2800	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
136		ho2times 32218	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → (2 ·_op (𝐹‘𝑘)) = ((𝐹‘𝑘) +_op (𝐹‘𝑘)))
137	36, 136	syl 18	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 ·_op (𝐹‘𝑘)) = ((𝐹‘𝑘) +_op (𝐹‘𝑘)))
138	137	oveq2d 7432	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
139		hoaddsubass 32214	. . . . . . . . . . 11 ⊢ (( I_op : ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
140	46, 139	mp3an1 1477	. . . . . . . . . 10 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
141	42, 38, 140	syl2anc 596	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
142	135, 138, 141	3eqtr2d 2806	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
143	110, 142	eqtrd 2800	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
144	143	oveq1d 7431	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
145	7, 8, 9	opsqrlem5 32543	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) = ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
146	145	oveq2d 7432	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘(𝑘 + 1))) = ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
147	146	oveq2d 7432	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))) = (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
148	105, 144, 147	3eqtr4d 2810	. . . . 5 ⊢ (𝑘 ∈ ℕ → ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)) = (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
149	33, 148	breqtrd 5139	. . . 4 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
150		peano2nn 12256	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
151	14	ffvelcdmi 7082	. . . . . . 7 ⊢ ((𝑘 + 1) ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ HrmOp)
152	150, 151	syl 18	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ HrmOp)
153		hmopd 32421	. . . . . 6 ⊢ (( I_op ∈ HrmOp ∧ (𝐹‘(𝑘 + 1)) ∈ HrmOp) → ( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp)
154	13, 152, 153	sylancr 599	. . . . 5 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp)
155		2re 12326	. . . . . 6 ⊢ 2 ∈ ℝ
156		2pos 12356	. . . . . 6 ⊢ 0 < 2
157		leopmul 32533	. . . . . 6 ⊢ ((2 ∈ ℝ ∧ ( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp ∧ 0 < 2) → ( 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))) ↔ 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1))))))
158	155, 156, 157	mp3an13 1481	. . . . 5 ⊢ (( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp → ( 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))) ↔ 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1))))))
159	154, 158	syl 18	. . . 4 ⊢ (𝑘 ∈ ℕ → ( 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))) ↔ 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1))))))
160	149, 159	mpbird 260	. . 3 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))))
161		leop3 32524	. . . 4 ⊢ (((𝐹‘(𝑘 + 1)) ∈ HrmOp ∧ I_op ∈ HrmOp) → ((𝐹‘(𝑘 + 1)) ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
162	152, 13, 161	sylancl 598	. . 3 ⊢ (𝑘 ∈ ℕ → ((𝐹‘(𝑘 + 1)) ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
163	160, 162	mpbird 260	. 2 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) ≤_op I_op )
164	2, 4, 6, 12, 163	nn1suc 12266	1 ⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) ≤_op I_op )

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2146 {csn 4591 class class class wbr 5111 × cxp 5661 ∘ ccom 5667 ⟶wf 6536 ‘cfv 6540 (class class class)co 7416 ∈ cmpo 7418 ℂcc 11109 ℝcr 11110 0cc0 11111 1c1 11112 + caddc 11114 · cmul 11116 < clt 11254 / cdiv 11882 ℕcn 12244 2c2 12306 seqcseq 14051 ℋchba 31318 +_op chos 31337 ·_op chot 31338 −_op chod 31339 0_hop ch0o 31342 I_op chio 31343 LinOpclo 31346 HrmOpcho 31349 ≤_op cleo 31357

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7738 ax-inf2 9613 ax-cc 10430 ax-cnex 11167 ax-resscn 11168 ax-1cn 11169 ax-icn 11170 ax-addcl 11171 ax-addrcl 11172 ax-mulcl 11173 ax-mulrcl 11174 ax-mulcom 11175 ax-addass 11176 ax-mulass 11177 ax-distr 11178 ax-i2m1 11179 ax-1ne0 11180 ax-1rid 11181 ax-rnegex 11182 ax-rrecex 11183 ax-cnre 11184 ax-pre-lttri 11185 ax-pre-lttrn 11186 ax-pre-ltadd 11187 ax-pre-mulgt0 11188 ax-pre-sup 11189 ax-addf 11190 ax-mulf 11191 ax-hilex 31398 ax-hfvadd 31399 ax-hvcom 31400 ax-hvass 31401 ax-hv0cl 31402 ax-hvaddid 31403 ax-hfvmul 31404 ax-hvmulid 31405 ax-hvmulass 31406 ax-hvdistr1 31407 ax-hvdistr2 31408 ax-hvmul0 31409 ax-hfi 31478 ax-his1 31481 ax-his2 31482 ax-his3 31483 ax-his4 31484 ax-hcompl 31601

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-iin 4961 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-of 7680 df-om 7865 df-1st 7988 df-2nd 7989 df-supp 8159 df-frecs 8280 df-wrecs 8311 df-recs 8360 df-rdg 8399 df-1o 8455 df-2o 8456 df-oadd 8459 df-omul 8460 df-er 8696 df-map 8828 df-pm 8829 df-ixp 8898 df-en 8946 df-dom 8947 df-sdom 8948 df-fin 8949 df-fsupp 9325 df-fi 9374 df-sup 9405 df-inf 9406 df-oi 9475 df-card 9937 df-acn 9940 df-pnf 11256 df-mnf 11257 df-xr 11258 df-ltxr 11259 df-le 11260 df-sub 11454 df-neg 11455 df-div 11883 df-nn 12245 df-2 12314 df-3 12315 df-4 12316 df-5 12317 df-6 12318 df-7 12319 df-8 12320 df-9 12321 df-n0 12516 df-z 12603 df-dec 12724 df-uz 12875 df-q 12985 df-rp 13029 df-xneg 13149 df-xadd 13150 df-xmul 13151 df-ioo 13388 df-ico 13390 df-icc 13391 df-fz 13548 df-fzo 13696 df-fl 13839 df-seq 14052 df-exp 14112 df-hash 14381 df-cj 15170 df-re 15171 df-im 15172 df-sqrt 15306 df-abs 15307 df-clim 15559 df-rlim 15560 df-sum 15758 df-struct 17225 df-sets 17242 df-slot 17260 df-ndx 17272 df-base 17288 df-ress 17309 df-plusg 17341 df-mulr 17342 df-starv 17343 df-sca 17344 df-vsca 17345 df-ip 17346 df-tset 17347 df-ple 17348 df-ds 17350 df-unif 17351 df-hom 17352 df-cco 17353 df-rest 17493 df-topn 17494 df-0g 17512 df-gsum 17513 df-topgen 17514 df-pt 17515 df-prds 17518 df-xrs 17574 df-qtop 17579 df-imas 17580 df-xps 17582 df-mre 17656 df-mrc 17657 df-acs 17659 df-mgm 18716 df-sgrp 18799 df-mnd 18815 df-submnd 18866 df-mulg 19158 df-cntz 19411 df-cmn 19876 df-psmet 21544 df-xmet 21545 df-met 21546 df-bl 21547 df-mopn 21548 df-fbas 21549 df-fg 21550 df-cnfld 21553 df-top 23081 df-topon 23098 df-topsp 23120 df-bases 23133 df-cld 23206 df-ntr 23207 df-cls 23208 df-nei 23285 df-cn 23414 df-cnp 23415 df-lm 23416 df-haus 23502 df-tx 23750 df-hmeo 23943 df-fil 24034 df-fm 24126 df-flim 24127 df-flf 24128 df-xms 24508 df-ms 24509 df-tms 24510 df-cfil 25445 df-cau 25446 df-cmet 25447 df-grpo 30892 df-gid 30893 df-ginv 30894 df-gdiv 30895 df-ablo 30944 df-vc 30958 df-nv 30991 df-va 30994 df-ba 30995 df-sm 30996 df-0v 30997 df-vs 30998 df-nmcv 30999 df-ims 31000 df-dip 31100 df-ssp 31121 df-ph 31212 df-cbn 31262 df-hnorm 31367 df-hba 31368 df-hvsub 31370 df-hlim 31371 df-hcau 31372 df-sh 31606 df-ch 31620 df-oc 31651 df-ch0 31652 df-shs 31707 df-pjh 31794 df-hosum 32129 df-homul 32130 df-hodif 32131 df-h0op 32147 df-iop 32148 df-lnop 32240 df-hmop 32243 df-leop 32251

This theorem is used by: (None)

W3C validator