Metamath Proof Explorer


Theorem counop

Description: The composition of two unitary operators is unitary. (Contributed by NM, 22-Jan-2006) (New usage is discouraged.)

Ref Expression
Assertion counop ⊢ S ∈ UniOp ∧ T ∈ UniOp → S ∘ T ∈ UniOp

Proof

Step Hyp Ref Expression
1 unopf1o ⊢ S ∈ UniOp → S : ℋ ⟶ 1-1 onto ℋ
2 unopf1o ⊢ T ∈ UniOp → T : ℋ ⟶ 1-1 onto ℋ
3 f1oco ⊢ S : ℋ ⟶ 1-1 onto ℋ ∧ T : ℋ ⟶ 1-1 onto ℋ → S ∘ T : ℋ ⟶ 1-1 onto ℋ
4 1 2 3 syl2an ⊢ S ∈ UniOp ∧ T ∈ UniOp → S ∘ T : ℋ ⟶ 1-1 onto ℋ
5 f1ofo ⊢ S ∘ T : ℋ ⟶ 1-1 onto ℋ → S ∘ T : ℋ ⟶ onto ℋ
6 4 5 syl ⊢ S ∈ UniOp ∧ T ∈ UniOp → S ∘ T : ℋ ⟶ onto ℋ
7 f1of ⊢ T : ℋ ⟶ 1-1 onto ℋ → T : ℋ ⟶ ℋ
8 2 7 syl ⊢ T ∈ UniOp → T : ℋ ⟶ ℋ
9 8 adantl ⊢ S ∈ UniOp ∧ T ∈ UniOp → T : ℋ ⟶ ℋ
10 simpl ⊢ x ∈ ℋ ∧ y ∈ ℋ → x ∈ ℋ
11 fvco3 ⊢ T : ℋ ⟶ ℋ ∧ x ∈ ℋ → S ∘ T ⁡ x = S ⁡ T ⁡ x
12 9 10 11 syl2an ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ∘ T ⁡ x = S ⁡ T ⁡ x
13 simpr ⊢ x ∈ ℋ ∧ y ∈ ℋ → y ∈ ℋ
14 fvco3 ⊢ T : ℋ ⟶ ℋ ∧ y ∈ ℋ → S ∘ T ⁡ y = S ⁡ T ⁡ y
15 9 13 14 syl2an ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ∘ T ⁡ y = S ⁡ T ⁡ y
16 12 15 oveq12d ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ∘ T ⁡ x ⋅ ih S ∘ T ⁡ y = S ⁡ T ⁡ x ⋅ ih S ⁡ T ⁡ y
17 ffvelcdm ⊢ T : ℋ ⟶ ℋ ∧ x ∈ ℋ → T ⁡ x ∈ ℋ
18 ffvelcdm ⊢ T : ℋ ⟶ ℋ ∧ y ∈ ℋ → T ⁡ y ∈ ℋ
19 17 18 anim12dan ⊢ T : ℋ ⟶ ℋ ∧ x ∈ ℋ ∧ y ∈ ℋ → T ⁡ x ∈ ℋ ∧ T ⁡ y ∈ ℋ
20 8 19 sylan ⊢ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → T ⁡ x ∈ ℋ ∧ T ⁡ y ∈ ℋ
21 unop ⊢ S ∈ UniOp ∧ T ⁡ x ∈ ℋ ∧ T ⁡ y ∈ ℋ → S ⁡ T ⁡ x ⋅ ih S ⁡ T ⁡ y = T ⁡ x ⋅ ih T ⁡ y
22 21 3expb ⊢ S ∈ UniOp ∧ T ⁡ x ∈ ℋ ∧ T ⁡ y ∈ ℋ → S ⁡ T ⁡ x ⋅ ih S ⁡ T ⁡ y = T ⁡ x ⋅ ih T ⁡ y
23 20 22 sylan2 ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ⁡ T ⁡ x ⋅ ih S ⁡ T ⁡ y = T ⁡ x ⋅ ih T ⁡ y
24 23 anassrs ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ⁡ T ⁡ x ⋅ ih S ⁡ T ⁡ y = T ⁡ x ⋅ ih T ⁡ y
25 unop ⊢ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → T ⁡ x ⋅ ih T ⁡ y = x ⋅ ih y
26 25 3expb ⊢ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → T ⁡ x ⋅ ih T ⁡ y = x ⋅ ih y
27 26 adantll ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → T ⁡ x ⋅ ih T ⁡ y = x ⋅ ih y
28 16 24 27 3eqtrd ⊢ S ∈ UniOp ∧ T ∈ UniOp ∧ x ∈ ℋ ∧ y ∈ ℋ → S ∘ T ⁡ x ⋅ ih S ∘ T ⁡ y = x ⋅ ih y
29 28 ralrimivva ⊢ S ∈ UniOp ∧ T ∈ UniOp → ∀ x ∈ ℋ ∀ y ∈ ℋ S ∘ T ⁡ x ⋅ ih S ∘ T ⁡ y = x ⋅ ih y
30 elunop ⊢ S ∘ T ∈ UniOp ↔ S ∘ T : ℋ ⟶ onto ℋ ∧ ∀ x ∈ ℋ ∀ y ∈ ℋ S ∘ T ⁡ x ⋅ ih S ∘ T ⁡ y = x ⋅ ih y
31 6 29 30 sylanbrc ⊢ S ∈ UniOp ∧ T ∈ UniOp → S ∘ T ∈ UniOp