Canonical unit and contraction isomorphisms
OpenQAlgorithms.Papers.Independent.Intakethird100.P93.lemma_2_7Let be a topological crossed module, with continuous action . Thus and . Put and give both and their quotient topologies. Assume their quotient projections admit continuous local sections. All actions, structure maps and isomorphisms below are continuous, all principal bundles are locally trivial, and a bispace has a nonempty principal homogeneous underlying right space.
Let be an -bispace, let with structure map , and let have the same underlying space with structure map and right action . Tensor products are the balanced quotients . There are canonical structure-preserving right equivariant homeomorphisms
The unit maps send to and to . The contraction sends to the unique such that , with . These specified maps give the unit and dual identifications used in tensor constructions.
import Definitions.Def_QAlgorithms_Papers_Independent_Intakethird100_P93
namespace QAlgorithms.Papers.Independent.Intakethird100.P93
universe u
variable {G H : Type u} [Group G] [TopologicalSpace G] [IsTopologicalGroup G]
[Group H] [TopologicalSpace H] [IsTopologicalGroup H]
variable (C : CrossedModule G H)
/-- Lemma 2.7, PDF p.6, all three canonical isomorphisms. Their formulas,
right equivariance and structure-map identities are asserted on representatives.
The contraction sends [x,y] to the unique g with gy=x. -/
theorem lemma_2_7 {X : Type u} [TopologicalSpace X] (B : Bispace C X) :
(∃ e : RightUnitTensor C B ≃ₜ X,
(∀ x g, e (Quot.mk _ (x, g)) = B.right.act x g) ∧
(∀ x g k, e (Quot.mk _ (x, g * k)) =
B.right.act (e (Quot.mk _ (x, g))) k) ∧
(∀ x g, B.psi (e (Quot.mk _ (x, g))) = B.psi x * C.t g)) ∧
(∃ e : LeftUnitTensor C B ≃ₜ X,
(∀ g x, e (Quot.mk _ (g, x)) = inducedLeft C B g x) ∧
(∀ g x k, e (Quot.mk _ (g, B.right.act x k)) =
B.right.act (e (Quot.mk _ (g, x))) k) ∧
(∀ g x, B.psi (e (Quot.mk _ (g, x))) = C.t g * B.psi x)) ∧
(∃ e : DualTensor C B ≃ₜ G,
(∀ x y, inducedLeft C B (e (Quot.mk _ (x, y))) y = x) ∧
(∀ x y k, e (Quot.mk _ (x, inducedLeft C B k⁻¹ y)) =
e (Quot.mk _ (x, y)) * k) ∧
(∀ x y, C.t (e (Quot.mk _ (x, y))) = B.psi x * (B.psi y)⁻¹)) := by sorry
end QAlgorithms.Papers.Independent.Intakethird100.P93
Read-back
What the Lean code literally says, in plain math · gpt-6.1-sol
Let be topological groups, and let consist of a continuous group homomorphism and a group homomorphism such that is continuous, , and for all and ; assume also that each of the quotient maps and has a continuous right inverse on some open neighborhood of every point of its target. Let be a topological space and consist of a continuous right action of on , with and , together with a continuous map satisfying . Assume is nonempty and, for every , the map is a homeomorphism . Define , where the inverse is the inverse automorphism. Form the quotient spaces of , of , and of by imposing, respectively, , , and for every . Then there exist homeomorphisms , , and satisfying all the following identities, for every and :
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.