Preserve abstract values in annotateTerm

Author: langston-barrett

what4/src/What4/Expr/Builder.hs

@@ -2052,7 +2052,8 @@ instance IsExprBuilder (ExprBuilder t st fs) where
         let tpr = exprType e
         n <- sbFreshIndex sym
         e' <- sbNonceExpr sym (Annotation tpr n e)
-        return (n, e')
+        let e'' = unsafeSetAbstractValue (exprAbsValue e') e'
+        return (n, e'')
 
   getAnnotation _sym e =
     case e of