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 (x :: 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 xs ys = ys Main> lappend1 xs ys = xs Main> lappend1 xs ys = [] Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = xs Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = ys Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = [] Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = x :: lappend1 xs xs Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = x :: lappend1 xs ys Main> lappend1 [] ys = ys lappend1 (x :: xs) ys = x :: lappend1 xs ys Main> ys Main> [] Main> lappend2 ys ys Main> lappend2 ys [] Main> lappend2 [] ys Main> Bye for now!