diff options
-rw-r--r-- | src/iflow.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/iflow.sml b/src/iflow.sml index b3f1a6eb..af45ea53 100644 --- a/src/iflow.sml +++ b/src/iflow.sml @@ -510,7 +510,7 @@ fun representative (db : database, e) = val r = ref (Node {Rep = ref NONE, Cons = ref SM.empty, Variety = Prim p, - Known = ref false}) + Known = ref true}) in #Consts db := CM.insert (!(#Consts db), p, r); r |