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

Add testcase for matching reconstruction

parent 981f9b17
No related branches found
No related tags found
No related merge requests found
import leon.Utils._
object Matching {
def t1(a: NatList) = choose( (x: Nat) => Cons(x, Nil()) == a)
abstract class Nat
case class Z() extends Nat
case class Succ(n: Nat) extends Nat
abstract class NatList
case class Nil() extends NatList
case class Cons(head: Nat, tail: NatList) extends NatList
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment