Reuse and extend the defined type in Ocaml

In Ocaml, is there a simple construct/style to extend a defined type?

Say, if we have the boolean type

bool2 = True | False 

Now we want to extend it for 3-valued logic. In Ocaml, is there more elegant one than redefining bool2 like this:

bool3 = True | False | ThirdOne