juvix/tests/Compilation/positive/test057.juvix

-- case folding
module test057;

import Stdlib.Prelude open;

myfun : {A : Type} -> (A -> A -> A) -> A -> List A -> A
  | f x xs :=
    case x :: xs
      | nil := x
      | y :: nil := y
      | y :: z :: _ := f y z;

main : Nat := myfun (+) 1 (7 :: 3 :: nil);