From d605b2079d138d36dc1ea0c5254dbe35b41a4f25 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Wed, 7 Dec 2022 13:16:03 +0000 Subject: Make more parameters irrelevant. --- src/Soat/FirstOrder/Algebra/Coproduct.idr | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Soat') diff --git a/src/Soat/FirstOrder/Algebra/Coproduct.idr b/src/Soat/FirstOrder/Algebra/Coproduct.idr index 0e63acc..a68c7cb 100644 --- a/src/Soat/FirstOrder/Algebra/Coproduct.idr +++ b/src/Soat/FirstOrder/Algebra/Coproduct.idr @@ -82,7 +82,7 @@ namespace Rel } public export -Coproduct : (x, y : RawAlgebra sig) -> RawAlgebra sig +Coproduct : (0 x, y : RawAlgebra sig) -> RawAlgebra sig Coproduct x y = MkRawAlgebra { U = CoproductSet sig x.U y.U , sem = Call @@ -116,22 +116,22 @@ fromFree x y = MkHomomorphism } public export -injectLHomo : {x, y : Algebra sig} -> x ~> CoproductAlgebra x y +injectLHomo : {0 x, y : Algebra sig} -> x ~> CoproductAlgebra x y injectLHomo = MkHomomorphism { func = bundle (\t => index - {x = bundle (\t => Either (index x.setoid t) (index y.setoid t))} + {x = bundle (\t => Either _ _)} (fromTerm x y . injectFunc) t . Left) , semHomo = InjectL } public export -injectRHomo : {x, y : Algebra sig} -> y ~> CoproductAlgebra x y +injectRHomo : {0 x, y : Algebra sig} -> y ~> CoproductAlgebra x y injectRHomo = MkHomomorphism { func = bundle (\t => index - {x = bundle (\t => Either (index x.setoid t) (index y.setoid t))} + {x = bundle (\t => Either _ _)} (fromTerm x y . injectFunc) t . Right) , semHomo = InjectR -- cgit v1.2.3