diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-07 13:16:03 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-12-07 13:16:03 +0000 |
| commit | d605b2079d138d36dc1ea0c5254dbe35b41a4f25 (patch) | |
| tree | 88f30ea485e7fb70309700256f9fccbd3863c1df | |
| parent | 3107ee7777b0709997975e28d9ef2a46bca8ca47 (diff) | |
Make more parameters irrelevant.
| -rw-r--r-- | src/Soat/FirstOrder/Algebra/Coproduct.idr | 10 |
1 files changed, 5 insertions, 5 deletions
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 |