diff --git a/visp/lib/core.visp b/visp/lib/core.visp
index 17b0143..2fdfaba 100644
--- a/visp/lib/core.visp
+++ b/visp/lib/core.visp
@@ -40,10 +40,10 @@
 (fn inline sub [(lhs: 'a) (rhs: 'a)] (- lhs rhs))
 (fn inline mul [(lhs: 'a) (rhs: 'a)] (* lhs rhs))
 (fn inline div [(lhs: 'a) (rhs: 'a)] (* lhs rhs))
-(fn inline sub1 [a] (- a 1))
-(fn inline dec [a] (- a 1))
-(fn inline add1 [a] (+ a 1))
-(fn inline inc [a] (+ a 1))
+(fn inline sub1 [a] (- a LanguagePrimitives.GenericOne))
+(fn inline dec [a] (- a LanguagePrimitives.GenericOne))
+(fn inline add1 [a] (+ a LanguagePrimitives.GenericOne))
+(fn inline inc [a] (+ a LanguagePrimitives.GenericOne))
 (fn inline dec64 [a] (- a 1L))
 (fn inline inc64 [a] (+ a 1L))