summaryrefslogtreecommitdiff
path: root/src/Soat/FirstOrder/Algebra/Coproduct.idr
diff options
context:
space:
mode:
authorGreg Brown <greg.brown01@ed.ac.uk>2022-12-06 13:50:12 +0000
committerGreg Brown <greg.brown01@ed.ac.uk>2022-12-06 13:50:12 +0000
commit121965c3e550f285d3a428cbb6da10c97bfa9846 (patch)
treefccec8224b7aae2fcf421e01b4440899ae45d22d /src/Soat/FirstOrder/Algebra/Coproduct.idr
parentdf7df335a91878448a9f231c0af36f57874ccd4e (diff)
refactor: rename pwSetoid -> Product.
Diffstat (limited to 'src/Soat/FirstOrder/Algebra/Coproduct.idr')
-rw-r--r--src/Soat/FirstOrder/Algebra/Coproduct.idr2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Soat/FirstOrder/Algebra/Coproduct.idr b/src/Soat/FirstOrder/Algebra/Coproduct.idr
index 88db184..548beed 100644
--- a/src/Soat/FirstOrder/Algebra/Coproduct.idr
+++ b/src/Soat/FirstOrder/Algebra/Coproduct.idr
@@ -175,7 +175,7 @@ termToCoproduct x y = MkHomomorphism
{ func = MkIndexedSetoidHomomorphism (\_ => id) (\t, _, _ => tmRelImpliesCoprodRel)
, semHomo = \op, tms =>
Call op $
- reflect (index (pwSetoid (CoproductAlgebra x y).setoid) _) $
+ reflect (index (Product (CoproductAlgebra x y).setoid) _) $
sym $
mapId tms
}