{s : Sort σ} (S : CarriersTermAlgebra C s) (T : CarriersTermAlgebra C s) : Type := ExtendRelTermAlgebra (fun s => paths) S T. Global Instance reflexive_extend_path_term_algebra : forall s : Sort σ, Reflexive (@ s). Proof. by apply reflexive_extend_rel_term_algebra. Defined.
Require Import