diff options
Diffstat (limited to 'src')
| -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 |