File tree Expand file tree Collapse file tree 1 file changed +8
-2
lines changed
Expand file tree Collapse file tree 1 file changed +8
-2
lines changed Original file line number Diff line number Diff line change @@ -51,6 +51,7 @@ import Kore.Syntax.Sentence
5151 ( SentenceAxiom (.. )
5252 )
5353import qualified Kore.Verified as Verified
54+ import qualified Pretty
5455
5556{- | Create a mapping from symbol identifiers to their defining axioms.
5657
@@ -154,8 +155,13 @@ ignoreEquation Equation { attributes }
154155{- | Should we ignore the 'EqualityRule' for evaluating function definitions?
155156 -}
156157ignoreDefinition :: Equation VariableName -> Bool
157- ignoreDefinition Equation { left } =
158- assert isLeftFunctionLike False
158+ ignoreDefinition Equation { attributes, left }
159+ | isLeftFunctionLike = False
160+ | otherwise = (error . show . Pretty. vsep)
161+ [ " left-hand side of equation was not function-like at:"
162+ , Pretty. indent 4 $ Pretty. pretty sourceLocation
163+ ]
159164 where
165+ Attribute. Axiom { sourceLocation } = attributes
160166 isLeftFunctionLike =
161167 (Pattern. isFunction . Pattern. function) (extractAttributes left)
You can’t perform that action at this time.
0 commit comments