start of equality type stuff

lib/Quox/Syntax/Dim.idr

@@ -67,7 +67,7 @@ prettyDSubst th =
     !(ifUnicode "⟨" "<") !(ifUnicode "⟩" ">") th
 
 
-export FromVar Dim where fromVar = B
+public export FromVar Dim where fromVar = B
 
 export
 CanShift Dim where
@@ -106,3 +106,9 @@ DecEq (Dim d) where
   decEq (B i) (B j) with (decEq i j)
     _ | Yes prf    = Yes $ cong B prf
     _ | No  contra = No  $ contra . injective
+
+||| abbreviation for a bound variable like `BV 4` instead of
+||| `B (VS (VS (VS (VS VZ))))`
+public export %inline
+BV : (i : Nat) -> (0 _ : LT i d) => Dim d
+BV i = B $ V i