(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/higher_order_defs/functions/".
-
include "logic/equality.ma".
definition compose \def
\lambda A,B,C:Type.\lambda f:(B\to C).\lambda g:(A\to B).\lambda x:A.
f (g x).
-notation "hvbox(a break \circ b)"
- left associative with precedence 70
-for @{ 'compose $a $b }.
-
interpretation "function composition" 'compose f g =
(cic:/matita/higher_order_defs/functions/compose.con _ _ _ f g).