flip : (a -> b -> c) -> b -> a -> c;
flip f x y = f y x;

infixl 5 ==;
infixl 6 <, <=, >, >=;
infixl 7 +,-,++;
infixl 8 *,/;

(+) : Int -> Int -> Int inline;
(+) x y = __addInt x y;

(-) : Int -> Int -> Int inline;
(-) x y = __subInt x y;

(*) : Int -> Int -> Int inline;
(*) x y = __mulInt x y;

(/) : Int -> Int -> Int inline;
(/) x y = __divInt x y;

(<) : Int -> Int -> Bool inline;
(<) x y = __intlt x y;

(<=) : Int -> Int -> Bool inline;
(<=) x y = __intleq x y;

(>) : Int -> Int -> Bool inline;
(>) x y = __intgt x y;

(>=) : Int -> Int -> Bool inline;
(>=) x y = __intgeq x y;

(++) : String -> String -> String inline;
(++) x y = __concat x y;

(==) : Int -> Int -> Bool inline;
(==) x y = __eq x y;
 
include "nat.idr";
include "maybe.idr";
include "io.idr";
include "either.idr";
include "tactics.idr";
include "vect.idr";

-- Function composition

infixl 9 .;

(.) : (b -> c) -> (a -> b) -> a -> c;
(.) f g x = f (g x);

fst : (a & b) -> a inline;
fst (x, y) = x;

snd : (a & b) -> b inline;
snd (x, y) = y;