@@ -31,6 +31,7 @@ Require Import UniMath.CategoryTheory.Chains.Chains.
3131Require Import UniMath.CategoryTheory.Chains.Adamek.
3232Require Import UniMath.CategoryTheory.Chains.OmegaCocontFunctors.
3333Require Import UniMath.CategoryTheory.FunctorAlgebras.
34+ Require UniMath.SubstitutionSystems.SubstitutionSystems.
3435Require Import UniMath.SubstitutionSystems.LiftingInitial_alt.
3536Require Import UniMath.SubstitutionSystems.ModulesFromSignatures.
3637Require Import UniMath.SubstitutionSystems.SignatureCategory.
@@ -85,7 +86,7 @@ Section EpiSignatureSig.
8586 := hss_initial_arrow_mon hsig b,, hss_initial_arrow_law hsig b.
8687
8788 Local Notation EndAlg sig :=
88- (FunctorAlg (Id_H HSET BinCoproductsHSET ( sig))).
89+ (FunctorAlg (SubstitutionSystems. Id_H HSET BinCoproductsHSET ( sig))).
8990
9091 Local Notation M_alg := (ModulesFromSignatures.M_alg HSET BinCoproductsHSET).
9192
@@ -94,7 +95,7 @@ Section EpiSignatureSig.
9495 (hsig : is_omega_cocont sig)
9596 (b : model (sigWithStrength_to_sig sig))
9697 (t : (rep_disp SET) [{(sigWithStrength_to_sig sig)}] ⟦ hss_initial_model hsig, b ⟧) :
97- is_algebra_mor (Id_H HSET BinCoproductsHSET ( sig))
98+ is_algebra_mor (SubstitutionSystems. Id_H HSET BinCoproductsHSET ( sig))
9899 (pr1 (pr1 (iniHSS sig hsig)))
99100 (M_alg sig b (model_τ b))
100101 (pr1 (pr1 t)).
@@ -150,7 +151,7 @@ Section EpiSignatureSig.
150151 (Colimits.ColimsFunctorCategory_of_shape nat_graph
151152 HSET HSET (ColimsHSET_of_shape nat_graph)
152153 (initChain (Initial_functor_precat HSET HSET InitialHSET)
153- (Id_H HSET BinCoproductsHSET ( sig)))))
154+ (SubstitutionSystems. Id_H HSET BinCoproductsHSET ( sig)))))
154155 (ModulesFromSignatures.M_alg HSET BinCoproductsHSET ( sig) b (model_τ b)))).
155156
156157 specialize (h (rep_mor_to_alg_mor hsig b t)).
0 commit comments