fact: Fixpoint OpPreserving {w : SymbolType σ} : Operation A w → Operation B w → Type := match w with | [:s:] => λ α β, f s α = β | s ::: y => λ α β, ∀ (x : A s), OpPreserving (α x) (β (f s x)) end.
imports: HoTT.Classes.interfaces.ua_setalgebra HoTT.Types HoTT.Tactics