Idris2/tests/idris2/interactive015/expected
Edwin Brady 3c601d9878 Fix recursive call checking in proof search
Need to use full names consistently to check for structural difference
2020-08-04 19:24:58 +01:00

39 lines
1.2 KiB
Plaintext

1/1: Building IEdit (IEdit.idr)
Main> my_cong x x Refl = Refl
Main> No more results
Main> append [] ys = ys
append (x :: xs) ys = x :: append xs ys
Main> append [] ys = ys
append (x :: xs) [] = x :: append xs []
append (x :: xs) (y :: ys) = x :: append xs (y :: ys)
Main> lappend [] ys = ys
lappend (x :: xs) ys = x :: lappend xs ys
Main> lappend [] ys = ys
lappend (x :: xs) ys = x :: lappend ys xs
Main> lappend [] ys = ys
lappend (x :: xs) ys = lappend xs (x :: ys)
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs ys
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs (x :: ys)
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs (x :: (x :: ys))
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs xs
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs []
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs (x :: xs)
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs [x]
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs (x :: (x :: xs))
Main> lappend1 [] ys = ys
lappend1 (x :: xs) ys = x :: lappend1 xs (x :: (x :: xs))
Main> ys
Main> []
Main> lappend2 ys ys
Main> lappend2 ys []
Main> No more results
Main> Bye for now!