Mul Operator comp Restricted eq

lemma mulOperator_compRestricted_eq    {μ : Measure (Space d)} (f : Space d → ℂ) {g : Space d → ℂ} (h : (𝓜 μ g).domain = ⊤) :    𝓜 μ f ∘ᵣ 𝓜 μ g = 𝓜 μ (f • g) := by  have hle := mulOperator_compRestricted_le μ f g  refine eq_of_le_of_domain_eq hle ?_  refine eq_of_le_of_ge hle.1 fun ψ hψ ↦ ?_  refine mem_compRestricted_domain_iff.mpr ⟨h ▸ Submodule.mem_top, ?_⟩  refine (mem_mulOperator_domain_iff.mp hψ).ae_eq ?_  filter_upwards [mulOperator_apply_ae ⟨ψ, h ▸ Submodule.mem_top⟩]  simp_all [mul_assoc]