more fromparser stuff

lib/Quox/Syntax/Dim.idr

@@ -84,6 +84,12 @@ prettyDSubst th =
 
 public export FromVar Dim where fromVar = B
 
+
+export
+inject : Dim d -> Dim (d + inj)
+inject (K e) = K e
+inject (B i) = B $ inject i
+
 export
 CanShift Dim where
   K e // _  = K e
@@ -127,9 +133,3 @@ DecEq (Dim d) where
 public export %inline
 BV : (i : Nat) -> (0 _ : LT i d) => Dim d
 BV i = B $ V i
-
-
-export
-inject : {0 d' : Nat} -> Dim d -> Dim (d + d')
-inject (K e) = K e
-inject (B i) = B $ inject i

lib/Quox/Syntax/Var.idr

@@ -77,7 +77,7 @@ fromNatWith (S i) (LTESucc p) = VS $ fromNatWith i p
 
 public export %inline
 V : (i : Nat) -> {auto 0 p : i `LT` n} -> Var n
-V i {p} = fromNatWith i p
+V i = fromNatWith i p
 
 export %inline
 tryFromNat : Alternative f => (n : Nat) -> Nat -> f (Var n)
@@ -112,7 +112,7 @@ toFromNat (S k) (LTESucc x) = cong S $ toFromNat k x
 
 
 export
-inject : Var m -> Var (m + n)
+inject : Var m -> Var (m + inj)
 inject VZ     = VZ
 inject (VS i) = VS $ inject i