======
Arrows
======

def foo (A B : ★) (f : A → A → B) (x : A) := f x x;

---

    (program
      (definition
        (identifier)
        (param_block
          (identifier)
          (identifier)
          (expr
            (app_term
              (binex
                (app
                  (term
                    (sort
                      (star))))))))
        (param_block
          (identifier)
          (expr
            (arrow
              (app_term
                (binex
                  (app
                    (term
                      (identifier)))))
              (expr
                (arrow
                  (app_term
                    (binex
                      (app
                        (term
                          (identifier)))))
                  (expr
                    (app_term
                      (binex
                        (app
                          (term
                            (identifier)))))))))))
        (param_block
          (identifier)
          (expr
            (app_term
              (binex
                (app
                  (term
                    (identifier)))))))
        (expr
          (app_term
            (binex
              (app
                (term
                  (identifier))
                (term
                  (identifier))
                (term
                  (identifier))))))))