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 29924

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 6672	. . 3 ⊢ (𝑗 = 1 → (𝐹‘𝑗) = (𝐹‘1))
2	1	breq1d 5078	. 2 ⊢ (𝑗 = 1 → ((𝐹‘𝑗) ≤_op I_op ↔ (𝐹‘1) ≤_op I_op ))
3		fveq2 6672	. . 3 ⊢ (𝑗 = (𝑘 + 1) → (𝐹‘𝑗) = (𝐹‘(𝑘 + 1)))
4	3	breq1d 5078	. 2 ⊢ (𝑗 = (𝑘 + 1) → ((𝐹‘𝑗) ≤_op I_op ↔ (𝐹‘(𝑘 + 1)) ≤_op I_op ))
5		fveq2 6672	. . 3 ⊢ (𝑗 = 𝑁 → (𝐹‘𝑗) = (𝐹‘𝑁))
6	5	breq1d 5078	. 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 29920	. . 3 ⊢ (𝐹‘1) = 0_hop
11		idleop 29910	. . 3 ⊢ 0_hop ≤_op I_op
12	10, 11	eqbrtri 5089	. 2 ⊢ (𝐹‘1) ≤_op I_op
13		idhmop 29761	. . . . . . . 8 ⊢ I_op ∈ HrmOp
14	7, 8, 9	opsqrlem4 29922	. . . . . . . . 9 ⊢ 𝐹:ℕ⟶HrmOp
15	14	ffvelrni 6852	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘) ∈ HrmOp)
16		hmopd 29801	. . . . . . . 8 ⊢ (( I_op ∈ HrmOp ∧ (𝐹‘𝑘) ∈ HrmOp) → ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp)
17	13, 15, 16	sylancr 589	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp)
18		eqid 2823	. . . . . . . 8 ⊢ (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘)))
19		hmopco 29802	. . . . . . . 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 1446	. . . . . . 7 ⊢ ((( I_op −_op (𝐹‘𝑘)) ∈ HrmOp ∧ ( I_op −_op (𝐹‘𝑘)) ∈ HrmOp) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp)
21	17, 17, 20	syl2anc 586	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) ∈ HrmOp)
22		leopsq 29908	. . . . . . 7 ⊢ (( I_op −_op (𝐹‘𝑘)) ∈ HrmOp → 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))))
23	17, 22	syl 17	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))))
24		opsqrlem6.4	. . . . . . . 8 ⊢ 𝑇 ≤_op I_op
25		leop3 29904	. . . . . . . . 9 ⊢ ((𝑇 ∈ HrmOp ∧ I_op ∈ HrmOp) → (𝑇 ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op 𝑇)))
26	7, 13, 25	mp2an 690	. . . . . . . 8 ⊢ (𝑇 ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op 𝑇))
27	24, 26	mpbi 232	. . . . . . 7 ⊢ 0_hop ≤_op ( I_op −_op 𝑇)
28		hmopd 29801	. . . . . . . . 9 ⊢ (( I_op ∈ HrmOp ∧ 𝑇 ∈ HrmOp) → ( I_op −_op 𝑇) ∈ HrmOp)
29	13, 7, 28	mp2an 690	. . . . . . . 8 ⊢ ( I_op −_op 𝑇) ∈ HrmOp
30		leopadd 29911	. . . . . . . 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 699	. . . . . . 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 702	. . . . . 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 586	. . . . 5 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)))
34		2cn 11715	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
35		hmopf 29653	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑘) ∈ HrmOp → (𝐹‘𝑘): ℋ⟶ ℋ)
36	15, 35	syl 17	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘): ℋ⟶ ℋ)
37		homulcl 29538	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ)
38	34, 36, 37	sylancr 589	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ)
39		hmopf 29653	. . . . . . . . . . 11 ⊢ (𝑇 ∈ HrmOp → 𝑇: ℋ⟶ ℋ)
40	7, 39	ax-mp 5	. . . . . . . . . 10 ⊢ 𝑇: ℋ⟶ ℋ
41		fco 6533	. . . . . . . . . . 11 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)
42	36, 36, 41	syl2anc 586	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)
43		hosubcl 29552	. . . . . . . . . 10 ⊢ ((𝑇: ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
44	40, 42, 43	sylancr 589	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
45		hmopf 29653	. . . . . . . . . . . 12 ⊢ ( I_op ∈ HrmOp → I_op : ℋ⟶ ℋ)
46	13, 45	ax-mp 5	. . . . . . . . . . 11 ⊢ I_op : ℋ⟶ ℋ
47		homulcl 29538	. . . . . . . . . . 11 ⊢ ((2 ∈ ℂ ∧ I_op : ℋ⟶ ℋ) → (2 ·_op I_op ): ℋ⟶ ℋ)
48	34, 46, 47	mp2an 690	. . . . . . . . . 10 ⊢ (2 ·_op I_op ): ℋ⟶ ℋ
49		hosubsub4 29597	. . . . . . . . . 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 1444	. . . . . . . . 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 586	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
52		hosubcl 29552	. . . . . . . . . . . . . . 15 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ)
53	42, 38, 52	syl2anc 586	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ)
54		hoadd32 29562	. . . . . . . . . . . . . . 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 1448	. . . . . . . . . . . . . 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 17	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
57		ho2times 29598	. . . . . . . . . . . . . . 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 7168	. . . . . . . . . . . . 13 ⊢ ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) = (( I_op +_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))))
60	56, 59	syl6eqr 2876	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
61		hoaddsubass 29594	. . . . . . . . . . . . . 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 1444	. . . . . . . . . . . . 13 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
63	42, 38, 62	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ((2 ·_op I_op ) +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
64	60, 63	eqtr4d 2861	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))))
65	64	oveq1d 7173	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇))
66		hoaddcl 29537	. . . . . . . . . . . 12 ⊢ (( I_op : ℋ⟶ ℋ ∧ (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘))): ℋ⟶ ℋ) → ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ)
67	46, 53, 66	sylancr 589	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))): ℋ⟶ ℋ)
68		hoaddsubass 29594	. . . . . . . . . . . 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 1449	. . . . . . . . . . 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 17	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op I_op ) −_op 𝑇) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
71		hoaddcl 29537	. . . . . . . . . . . 12 ⊢ (((2 ·_op I_op ): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ) → ((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
72	48, 42, 71	sylancr 589	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ)
73		hosubsub4 29597	. . . . . . . . . . . 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 1446	. . . . . . . . . . 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 586	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) −_op 𝑇) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
76	65, 70, 75	3eqtr3d 2866	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
77		hosubadd4 29593	. . . . . . . . . . . 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 701	. . . . . . . . . . 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 698	. . . . . . . . . 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 586	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (((2 ·_op I_op ) +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((2 ·_op (𝐹‘𝑘)) +_op 𝑇)))
81	76, 80	eqtr4d 2861	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (((2 ·_op I_op ) −_op (2 ·_op (𝐹‘𝑘))) −_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
82		halfcn 11855	. . . . . . . . . . . 12 ⊢ (1 / 2) ∈ ℂ
83		homulcl 29538	. . . . . . . . . . . 12 ⊢ (((1 / 2) ∈ ℂ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ)
84	82, 44, 83	sylancr 589	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ)
85		hoadddi 29582	. . . . . . . . . . . 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 1444	. . . . . . . . . . 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 586	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
88		2ne0 11744	. . . . . . . . . . . . . 14 ⊢ 2 ≠ 0
89	34, 88	recidi 11373	. . . . . . . . . . . . 13 ⊢ (2 · (1 / 2)) = 1
90	89	oveq1i 7168	. . . . . . . . . . . 12 ⊢ ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
91		homulass 29581	. . . . . . . . . . . . . 14 ⊢ ((2 ∈ ℂ ∧ (1 / 2) ∈ ℂ ∧ (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ) → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
92	34, 82, 91	mp3an12 1447	. . . . . . . . . . . . 13 ⊢ ((𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
93	44, 92	syl 17	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · (1 / 2)) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
94		homulid2 29579	. . . . . . . . . . . . 13 ⊢ ((𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))): ℋ⟶ ℋ → (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
95	44, 94	syl 17	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (1 ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
96	90, 93, 95	3eqtr3a 2882	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))) = (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
97	96	oveq2d 7174	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 ·_op (𝐹‘𝑘)) +_op (2 ·_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
98	87, 97	eqtrd 2858	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))) = ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
99	98	oveq2d 7174	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op ((2 ·_op (𝐹‘𝑘)) +_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
100	51, 81, 99	3eqtr4d 2868	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
101		hoaddcl 29537	. . . . . . . . 9 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))): ℋ⟶ ℋ) → ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ)
102	36, 84, 101	syl2anc 586	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))): ℋ⟶ ℋ)
103		hosubdi 29587	. . . . . . . . 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 ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
104	34, 46, 103	mp3an12 1447	. . . . . . . 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 ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
105	102, 104	syl 17	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))) = ((2 ·_op I_op ) −_op (2 ·_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
106	100, 105	eqtr4d 2861	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)) = (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
107		hosubcl 29552	. . . . . . . . . 10 ⊢ (( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ)
108	46, 36, 107	sylancr 589	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ)
109		hocsubdir 29564	. . . . . . . . . 10 ⊢ (( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ ∧ ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
110	46, 109	mp3an1 1444	. . . . . . . . 9 ⊢ (((𝐹‘𝑘): ℋ⟶ ℋ ∧ ( I_op −_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
111	36, 108, 110	syl2anc 586	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))))
112		hmoplin 29721	. . . . . . . . . . . . . . 15 ⊢ ( I_op ∈ HrmOp → I_op ∈ LinOp)
113	13, 112	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ I_op ∈ LinOp
114		hoddi 29769	. . . . . . . . . . . . . 14 ⊢ (( I_op ∈ LinOp ∧ I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
115	113, 46, 114	mp3an12 1447	. . . . . . . . . . . . 13 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
116	36, 115	syl 17	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))))
117	46	hoid1i 29568	. . . . . . . . . . . . . 14 ⊢ ( I_op ∘ I_op ) = I_op
118	117	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ I_op ) = I_op )
119		hoico2 29536	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ( I_op ∘ (𝐹‘𝑘)) = (𝐹‘𝑘))
120	36, 119	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ (𝐹‘𝑘)) = (𝐹‘𝑘))
121	118, 120	oveq12d 7176	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ I_op ) −_op ( I_op ∘ (𝐹‘𝑘))) = ( I_op −_op (𝐹‘𝑘)))
122	116, 121	eqtrd 2858	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op ∘ ( I_op −_op (𝐹‘𝑘))) = ( I_op −_op (𝐹‘𝑘)))
123		hmoplin 29721	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘) ∈ HrmOp → (𝐹‘𝑘) ∈ LinOp)
124	15, 123	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘) ∈ LinOp)
125		hoddi 29769	. . . . . . . . . . . . . 14 ⊢ (((𝐹‘𝑘) ∈ LinOp ∧ I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
126	46, 125	mp3an2 1445	. . . . . . . . . . . . 13 ⊢ (((𝐹‘𝑘) ∈ LinOp ∧ (𝐹‘𝑘): ℋ⟶ ℋ) → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
127	124, 36, 126	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
128		hoico1 29535	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → ((𝐹‘𝑘) ∘ I_op ) = (𝐹‘𝑘))
129	36, 128	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ I_op ) = (𝐹‘𝑘))
130	129	oveq1d 7173	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((𝐹‘𝑘) ∘ I_op ) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) = ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
131	127, 130	eqtrd 2858	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘))) = ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))
132	122, 131	oveq12d 7176	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))
133	36, 46	jctil 522	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ))
134		hosubadd4 29593	. . . . . . . . . . 11 ⊢ ((( I_op : ℋ⟶ ℋ ∧ (𝐹‘𝑘): ℋ⟶ ℋ) ∧ ((𝐹‘𝑘): ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ)) → (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
135	133, 36, 42, 134	syl12anc 834	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) −_op ((𝐹‘𝑘) −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
136	132, 135	eqtrd 2858	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
137		ho2times 29598	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑘): ℋ⟶ ℋ → (2 ·_op (𝐹‘𝑘)) = ((𝐹‘𝑘) +_op (𝐹‘𝑘)))
138	36, 137	syl 17	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 ·_op (𝐹‘𝑘)) = ((𝐹‘𝑘) +_op (𝐹‘𝑘)))
139	138	oveq2d 7174	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op ((𝐹‘𝑘) +_op (𝐹‘𝑘))))
140		hoaddsubass 29594	. . . . . . . . . . 11 ⊢ (( I_op : ℋ⟶ ℋ ∧ ((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
141	46, 140	mp3an1 1444	. . . . . . . . . 10 ⊢ ((((𝐹‘𝑘) ∘ (𝐹‘𝑘)): ℋ⟶ ℋ ∧ (2 ·_op (𝐹‘𝑘)): ℋ⟶ ℋ) → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
142	42, 38, 141	syl2anc 586	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (( I_op +_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))) −_op (2 ·_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
143	136, 139, 142	3eqtr2d 2864	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (( I_op ∘ ( I_op −_op (𝐹‘𝑘))) −_op ((𝐹‘𝑘) ∘ ( I_op −_op (𝐹‘𝑘)))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
144	111, 143	eqtrd 2858	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) = ( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))))
145	144	oveq1d 7173	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)) = (( I_op +_op (((𝐹‘𝑘) ∘ (𝐹‘𝑘)) −_op (2 ·_op (𝐹‘𝑘)))) +_op ( I_op −_op 𝑇)))
146	7, 8, 9	opsqrlem5 29923	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) = ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))
147	146	oveq2d 7174	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘(𝑘 + 1))) = ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘)))))))
148	147	oveq2d 7174	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))) = (2 ·_op ( I_op −_op ((𝐹‘𝑘) +_op ((1 / 2) ·_op (𝑇 −_op ((𝐹‘𝑘) ∘ (𝐹‘𝑘))))))))
149	106, 145, 148	3eqtr4d 2868	. . . . 5 ⊢ (𝑘 ∈ ℕ → ((( I_op −_op (𝐹‘𝑘)) ∘ ( I_op −_op (𝐹‘𝑘))) +_op ( I_op −_op 𝑇)) = (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
150	33, 149	breqtrd 5094	. . . 4 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
151		peano2nn 11652	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
152	14	ffvelrni 6852	. . . . . . 7 ⊢ ((𝑘 + 1) ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ HrmOp)
153	151, 152	syl 17	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ HrmOp)
154		hmopd 29801	. . . . . 6 ⊢ (( I_op ∈ HrmOp ∧ (𝐹‘(𝑘 + 1)) ∈ HrmOp) → ( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp)
155	13, 153, 154	sylancr 589	. . . . 5 ⊢ (𝑘 ∈ ℕ → ( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp)
156		2re 11714	. . . . . 6 ⊢ 2 ∈ ℝ
157		2pos 11743	. . . . . 6 ⊢ 0 < 2
158		leopmul 29913	. . . . . 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))))))
159	156, 157, 158	mp3an13 1448	. . . . 5 ⊢ (( I_op −_op (𝐹‘(𝑘 + 1))) ∈ HrmOp → ( 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))) ↔ 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1))))))
160	155, 159	syl 17	. . . 4 ⊢ (𝑘 ∈ ℕ → ( 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))) ↔ 0_hop ≤_op (2 ·_op ( I_op −_op (𝐹‘(𝑘 + 1))))))
161	150, 160	mpbird 259	. . 3 ⊢ (𝑘 ∈ ℕ → 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1))))
162		leop3 29904	. . . 4 ⊢ (((𝐹‘(𝑘 + 1)) ∈ HrmOp ∧ I_op ∈ HrmOp) → ((𝐹‘(𝑘 + 1)) ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
163	153, 13, 162	sylancl 588	. . 3 ⊢ (𝑘 ∈ ℕ → ((𝐹‘(𝑘 + 1)) ≤_op I_op ↔ 0_hop ≤_op ( I_op −_op (𝐹‘(𝑘 + 1)))))
164	161, 163	mpbird 259	. 2 ⊢ (𝑘 ∈ ℕ → (𝐹‘(𝑘 + 1)) ≤_op I_op )
165	2, 4, 6, 12, 164	nn1suc 11662	1 ⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) ≤_op I_op )

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1537 ∈ wcel 2114 {csn 4569 class class class wbr 5068 × cxp 5555 ∘ ccom 5561 ⟶wf 6353 ‘cfv 6357 (class class class)co 7158 ∈ cmpo 7160 ℂcc 10537 ℝcr 10538 0cc0 10539 1c1 10540 + caddc 10542 · cmul 10544 < clt 10677 / cdiv 11299 ℕcn 11640 2c2 11695 seqcseq 13372 ℋchba 28698 +_op chos 28717 ·_op chot 28718 −_op chod 28719 0_hop ch0o 28722 I_op chio 28723 LinOpclo 28726 HrmOpcho 28729 ≤_op cleo 28737

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2795 ax-rep 5192 ax-sep 5205 ax-nul 5212 ax-pow 5268 ax-pr 5332 ax-un 7463 ax-inf2 9106 ax-cc 9859 ax-cnex 10595 ax-resscn 10596 ax-1cn 10597 ax-icn 10598 ax-addcl 10599 ax-addrcl 10600 ax-mulcl 10601 ax-mulrcl 10602 ax-mulcom 10603 ax-addass 10604 ax-mulass 10605 ax-distr 10606 ax-i2m1 10607 ax-1ne0 10608 ax-1rid 10609 ax-rnegex 10610 ax-rrecex 10611 ax-cnre 10612 ax-pre-lttri 10613 ax-pre-lttrn 10614 ax-pre-ltadd 10615 ax-pre-mulgt0 10616 ax-pre-sup 10617 ax-addf 10618 ax-mulf 10619 ax-hilex 28778 ax-hfvadd 28779 ax-hvcom 28780 ax-hvass 28781 ax-hv0cl 28782 ax-hvaddid 28783 ax-hfvmul 28784 ax-hvmulid 28785 ax-hvmulass 28786 ax-hvdistr1 28787 ax-hvdistr2 28788 ax-hvmul0 28789 ax-hfi 28858 ax-his1 28861 ax-his2 28862 ax-his3 28863 ax-his4 28864 ax-hcompl 28981

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-fal 1550 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2802 df-cleq 2816 df-clel 2895 df-nfc 2965 df-ne 3019 df-nel 3126 df-ral 3145 df-rex 3146 df-reu 3147 df-rmo 3148 df-rab 3149 df-v 3498 df-sbc 3775 df-csb 3886 df-dif 3941 df-un 3943 df-in 3945 df-ss 3954 df-pss 3956 df-nul 4294 df-if 4470 df-pw 4543 df-sn 4570 df-pr 4572 df-tp 4574 df-op 4576 df-uni 4841 df-int 4879 df-iun 4923 df-iin 4924 df-br 5069 df-opab 5131 df-mpt 5149 df-tr 5175 df-id 5462 df-eprel 5467 df-po 5476 df-so 5477 df-fr 5516 df-se 5517 df-we 5518 df-xp 5563 df-rel 5564 df-cnv 5565 df-co 5566 df-dm 5567 df-rn 5568 df-res 5569 df-ima 5570 df-pred 6150 df-ord 6196 df-on 6197 df-lim 6198 df-suc 6199 df-iota 6316 df-fun 6359 df-fn 6360 df-f 6361 df-f1 6362 df-fo 6363 df-f1o 6364 df-fv 6365 df-isom 6366 df-riota 7116 df-ov 7161 df-oprab 7162 df-mpo 7163 df-of 7411 df-om 7583 df-1st 7691 df-2nd 7692 df-supp 7833 df-wrecs 7949 df-recs 8010 df-rdg 8048 df-1o 8104 df-2o 8105 df-oadd 8108 df-omul 8109 df-er 8291 df-map 8410 df-pm 8411 df-ixp 8464 df-en 8512 df-dom 8513 df-sdom 8514 df-fin 8515 df-fsupp 8836 df-fi 8877 df-sup 8908 df-inf 8909 df-oi 8976 df-card 9370 df-acn 9373 df-pnf 10679 df-mnf 10680 df-xr 10681 df-ltxr 10682 df-le 10683 df-sub 10874 df-neg 10875 df-div 11300 df-nn 11641 df-2 11703 df-3 11704 df-4 11705 df-5 11706 df-6 11707 df-7 11708 df-8 11709 df-9 11710 df-n0 11901 df-z 11985 df-dec 12102 df-uz 12247 df-q 12352 df-rp 12393 df-xneg 12510 df-xadd 12511 df-xmul 12512 df-ioo 12745 df-ico 12747 df-icc 12748 df-fz 12896 df-fzo 13037 df-fl 13165 df-seq 13373 df-exp 13433 df-hash 13694 df-cj 14460 df-re 14461 df-im 14462 df-sqrt 14596 df-abs 14597 df-clim 14847 df-rlim 14848 df-sum 15045 df-struct 16487 df-ndx 16488 df-slot 16489 df-base 16491 df-sets 16492 df-ress 16493 df-plusg 16580 df-mulr 16581 df-starv 16582 df-sca 16583 df-vsca 16584 df-ip 16585 df-tset 16586 df-ple 16587 df-ds 16589 df-unif 16590 df-hom 16591 df-cco 16592 df-rest 16698 df-topn 16699 df-0g 16717 df-gsum 16718 df-topgen 16719 df-pt 16720 df-prds 16723 df-xrs 16777 df-qtop 16782 df-imas 16783 df-xps 16785 df-mre 16859 df-mrc 16860 df-acs 16862 df-mgm 17854 df-sgrp 17903 df-mnd 17914 df-submnd 17959 df-mulg 18227 df-cntz 18449 df-cmn 18910 df-psmet 20539 df-xmet 20540 df-met 20541 df-bl 20542 df-mopn 20543 df-fbas 20544 df-fg 20545 df-cnfld 20548 df-top 21504 df-topon 21521 df-topsp 21543 df-bases 21556 df-cld 21629 df-ntr 21630 df-cls 21631 df-nei 21708 df-cn 21837 df-cnp 21838 df-lm 21839 df-haus 21925 df-tx 22172 df-hmeo 22365 df-fil 22456 df-fm 22548 df-flim 22549 df-flf 22550 df-xms 22932 df-ms 22933 df-tms 22934 df-cfil 23860 df-cau 23861 df-cmet 23862 df-grpo 28272 df-gid 28273 df-ginv 28274 df-gdiv 28275 df-ablo 28324 df-vc 28338 df-nv 28371 df-va 28374 df-ba 28375 df-sm 28376 df-0v 28377 df-vs 28378 df-nmcv 28379 df-ims 28380 df-dip 28480 df-ssp 28501 df-ph 28592 df-cbn 28642 df-hnorm 28747 df-hba 28748 df-hvsub 28750 df-hlim 28751 df-hcau 28752 df-sh 28986 df-ch 29000 df-oc 29031 df-ch0 29032 df-shs 29087 df-pjh 29174 df-hosum 29509 df-homul 29510 df-hodif 29511 df-h0op 29527 df-iop 29528 df-lnop 29620 df-hmop 29623 df-leop 29631

This theorem is referenced by: (None)

W3C validator