open Tp6;;

assert (correct (Fraction (3, 4)));;
assert (correct (Entier 5));;
assert (not (correct (Fraction (3, 0))));;

assert (Fraction(1, 2) $= Fraction(2, 4));;

assert (count_coul [|
  { coul = Carreau; va = Huit };
  { coul = Carreau; va = Neuf }
|] = [|0;0;0;2|]);;

assert (count_val [|
  { coul = Carreau; va = Huit };
  { coul = Carreau; va = Neuf }
|] = [|0;1;1;0;0;0;0;0|]);;