doc-src/Tutorial/Misc/types

removed the mutual recursion from "bin_add"

types number       = nat
      gate         = bool => bool => bool
      ('a,'b)alist = "('a * 'b)list"