From bda0d3e9c1752d35488665ec19d39904f0dc4b49 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 13 May 2025 19:58:12 +0200 Subject: Revert some stylistic changes https://x.com/comerijn/status/1257804634833420292 --- src/Data/Array/Mixed/Lemmas.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Array/Mixed/Lemmas.hs') diff --git a/src/Data/Array/Mixed/Lemmas.hs b/src/Data/Array/Mixed/Lemmas.hs index ec7e7bd..560f762 100644 --- a/src/Data/Array/Mixed/Lemmas.hs +++ b/src/Data/Array/Mixed/Lemmas.hs @@ -30,7 +30,7 @@ subst2 Refl = Refl -- ** Nat -lemLeqSuccSucc :: (k + 1 <= n) => Proxy k -> Proxy n -> (k <=? n - 1) :~: True +lemLeqSuccSucc :: k + 1 <= n => Proxy k -> Proxy n -> (k <=? n - 1) :~: True lemLeqSuccSucc _ _ = unsafeCoerceRefl lemLeqPlus :: n <= m => Proxy n -> Proxy m -> Proxy k -> (n <=? (m + k)) :~: 'True -- cgit v1.2.3-70-g09d2