Skip to content
Snippets Groups Projects
Commit 54d6ebe2 authored by Etienne Kneuss's avatar Etienne Kneuss
Browse files

Keep precondition inside formula, print precondition

parent 1a6a2be3
No related branches found
No related tags found
No related merge requests found
......@@ -256,24 +256,17 @@ class ADTDual(synth: Synthesizer) extends Rule("ADTDual", synth) {
val TopLevelAnds(exprs) = p.phi
val (toRemove, toAdd, toPre) = exprs.collect {
val (toRemove, toAdd) = exprs.collect {
case eq @ Equals(cc @ CaseClass(cd, args), e) if (variablesOf(e) -- as).isEmpty && (variablesOf(cc) -- xs).isEmpty =>
(eq, (cd.fieldsIds zip args).map{ case (id, ex) => Equals(ex, CaseClassSelector(cd, e, id)) }, CaseClassInstanceOf(cd, e) )
(eq, CaseClassInstanceOf(cd, e) +: (cd.fieldsIds zip args).map{ case (id, ex) => Equals(ex, CaseClassSelector(cd, e, id)) } )
case eq @ Equals(e, cc @ CaseClass(cd, args)) if (variablesOf(e) -- as).isEmpty && (variablesOf(cc) -- xs).isEmpty =>
(eq, (cd.fieldsIds zip args).map{ case (id, ex) => Equals(ex, CaseClassSelector(cd, e, id)) }, CaseClassInstanceOf(cd, e) )
}.unzip3
(eq, CaseClassInstanceOf(cd, e) +: (cd.fieldsIds zip args).map{ case (id, ex) => Equals(ex, CaseClassSelector(cd, e, id)) } )
}.unzip
if (!toRemove.isEmpty) {
val sub = p.copy(phi = And((exprs.toSet -- toRemove ++ toAdd.flatten).toSeq))
val onSuccess: List[Solution] => Solution = {
case List(s) =>
Solution(And(s.pre +: toPre), s.term)
case _ =>
Solution.none
}
List(task.decompose(this, List(sub), onSuccess, 80))
List(task.decompose(this, List(sub), forward, 80))
} else {
Nil
}
......
......@@ -95,7 +95,7 @@ class Synthesizer(val r: Reporter, val solvers: List[Solver]) {
val sol = synthesize(Problem(as, phi, xs), rules)
info("Scala code:")
info(ScalaPrinter(sol.term))
info(ScalaPrinter(IfExpr(sol.pre, sol.term, Error("Precondition failed").setType(sol.term.getType))))
a
case _ =>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment