%inline

lib/Quox/Equal.idr

@@ -188,7 +188,7 @@ parameters (defs : Definitions' q _) {auto _ : (CanEqual q m, Eq q)}
 
     ||| compares two types, using the current variance `mode` for universes.
     ||| fails if they are not types, even if they would happen to be equal.
-    export covering
+    export covering %inline
     compareType : TContext q 0 n -> (s, t : Term q 0 n) -> m ()
     compareType ctx s t = do
       let Element s ns = whnfD defs s

lib/Quox/Syntax/DimEq.idr

@@ -28,11 +28,11 @@ data DimEq : Nat -> Type where
 %name DimEq eqs
 
 
-export
+export %inline
 zeroEq : DimEq 0
 zeroEq = C [<]
 
-export
+export %inline
 new' : {d : Nat} -> DimEq' d
 new' {d = 0}   = [<]
 new' {d = S d} = new' :< Nothing