File tree Expand file tree Collapse file tree 1 file changed +3
-5
lines changed
kore/src/Kore/Step/Simplification Expand file tree Collapse file tree 1 file changed +3
-5
lines changed Original file line number Diff line number Diff line change @@ -164,8 +164,8 @@ import qualified Pretty
164164-- instances of that.
165165
166166{- | Simplify 'TermLike' pattern to a disjunction of function-like 'Pattern's.
167- All the terms will be simplified, but the predicates may only be conjunctions
168- of simplified clauses .
167+ All the resulting terms and conditions will be fully simplified, because after
168+ the term simplification procedure, the condition simplifier will be called as well .
169169 -}
170170simplify
171171 :: forall variable simplifier
@@ -445,7 +445,7 @@ ensureSimplifiedResult
445445 -> OrPattern variable
446446 -> simplifier (OrPattern variable )
447447ensureSimplifiedResult repr termLike results
448- | hasSimplifiedChildren results = pure results
448+ | OrPattern. isSimplified repr results = pure results
449449 | otherwise =
450450 (error . show . Pretty. vsep)
451451 [ " Internal error: expected simplified results, but found:"
@@ -454,8 +454,6 @@ ensureSimplifiedResult repr termLike results
454454 , Pretty. indent 2 " while simplifying:"
455455 , Pretty. indent 4 (unparse termLike)
456456 ]
457- where
458- hasSimplifiedChildren = OrPattern. hasSimplifiedChildren repr
459457
460458ensureSimplifiedCondition
461459 :: InternalVariable variable
You can’t perform that action at this time.
0 commit comments