Back-translate (wrongly) unary minus

Author: geo2a

kore/src/Kore/Rewrite/SMT/Translate.hs

@@ -539,6 +539,12 @@ backTranslateWith
             , Just koreSym <- Map.lookup fct reverseMetadata = do
                 args <- mapM backTranslate rest
                 pure $ TermLike.mkApplySymbol koreSym args
+            | ((Atom "-") : rest) <- xs =
+                do
+                    args <- mapM backTranslate rest
+                    -- FIXME use the unary minus from reverseMetadata, make sure it's there,
+                    --       and don't use head
+                    pure (head args)
             | otherwise =
                 throwError "backTranslate.List-case: implement me!"
         backTranslate String{} =