changed the translation to Coq of NatLits to only use Z if the nats a…

…re larger than 1,000
GaloisInc · Dec 1, 2021 · f83f010 · f83f010
1 parent 8b1250e
commit f83f010
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/saw-core-coq/src/Language/Coq/Pretty.hs b/saw-core-coq/src/Language/Coq/Pretty.hs
@@ -133,7 +133,7 @@ ppTerm p e =
       parensIf (p > PrecLambda)
       (ppTerm PrecApp tm <+> text ":" <+> ppTerm PrecApp tp)
     NatLit i ->
-      if i > 20 then
+      if i > 1000 then
         -- Explicitly convert from Z if an integer is too big
         parensIf (p > PrecLambda) (text "Z.to_nat" <+> integer i <> text "%Z")
       else