add weakD

2023-03-25 20:48:49 +01:00 · 2023-03-25 20:48:49 +01:00 · ab82883214
parent 100063ab91
commit ab82883214
1 changed files with 5 additions and 0 deletions
--- a/lib/Quox/Syntax/Dim.idr
+++ b/lib/Quox/Syntax/Dim.idr
@ -132,3 +132,8 @@ DecEq (Dim d) where
 public export %inline
 BV : (i : Nat) -> (0 _ : LT i d) => Dim d
 BV i = B $ V i
+
+
+export
+weakD : {default 1 by : Nat} -> Dim d -> Dim (by + d)
+weakD p = p // shift by