weakenN's n parameter was made to have zero quantity.

This commit is contained in:
Denis Buzdalov 2021-02-08 23:37:14 +03:00 committed by G. Allais
parent 891b2d667a
commit 123fbb7f33

View File

@ -76,7 +76,7 @@ weaken (FS k) = FS $ weaken k
||| Weaken the bound on a Fin by some amount
public export
weakenN : (n : Nat) -> Fin m -> Fin (m + n)
weakenN : (0 n : Nat) -> Fin m -> Fin (m + n)
weakenN n FZ = FZ
weakenN n (FS f) = FS $ weakenN n f