open import Agda.Builtin.Nat using (Nat; _+_)

answer : Nat
answer = 42

suc : Nat  Nat
suc x = x + 1

add_answer : Nat  Nat
add_answer x = x + answer

add : Nat  Nat  Nat
add x y = x + y

add3 : Nat  Nat  Nat  Nat
add3 x y z = x + y + z

add3b : Nat  Nat  Nat  Nat
add3b x y z = add x (add y z)

test : Nat
test = add3b (add_answer 0) (add 0 0) (add3 0 0 0)
{-# COMPILE AGDA2LAMBOX test #-}
Debug λ☐ Rocq
  ↪  
WASM C OCaml CakeML Rust Elm
  ↪  
  ↪