diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-11-25 14:23:42 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-11-25 14:23:42 +0000 |
| commit | 7c8591b566baeb6af42a22b8979c53ebdcab5479 (patch) | |
| tree | bdbbaffd50abd8fd7737059d25fb7a7025e2be97 /src/Soat/SecondOrder/Algebra.idr | |
| parent | fe24f02389a92563bdde4cb03f66a7db9ec51308 (diff) | |
Remove unnecessary pattern matching.
Diffstat (limited to 'src/Soat/SecondOrder/Algebra.idr')
| -rw-r--r-- | src/Soat/SecondOrder/Algebra.idr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Soat/SecondOrder/Algebra.idr b/src/Soat/SecondOrder/Algebra.idr index f0a0ef7..3ce1726 100644 --- a/src/Soat/SecondOrder/Algebra.idr +++ b/src/Soat/SecondOrder/Algebra.idr @@ -14,7 +14,7 @@ extend x ctx ty = x (snd ty) (fst ty ++ ctx) public export extendRel : {U : a -> List a -> Type} -> (rel : IRel (uncurry U)) -> (ctx : List a) -> IRel (extend U ctx) -extendRel rel ctx (ctx', t) = rel (t, ctx' ++ ctx) +extendRel rel ctx ty = rel (snd ty, fst ty ++ ctx) public export algebraOver : (sig : Signature) -> (U : sig.T -> List sig.T -> Type) -> Type |