type constant = Asttypes.constant =| Const_int of int| Const_char of char| Const_string of string * string option| Const_float of string| Const_int32 of int32| Const_int64 of int64| Const_nativeint of nativeinttype rec_flag = Asttypes.rec_flag =| Nonrecursive| Recursivetype direction_flag = Asttypes.direction_flag =| Upto| Downtotype private_flag = Asttypes.private_flag =| Private| Publictype mutable_flag = Asttypes.mutable_flag =| Immutable| Mutabletype virtual_flag = Asttypes.virtual_flag =| Virtual| Concretetype override_flag = Asttypes.override_flag =| Override| Freshtype closed_flag = Asttypes.closed_flag =| Closed| Opentype label = stringtype arg_label = Asttypes.arg_label =| Nolabel| Labelled of string| Optional of stringtype 'a loc = 'a Location.loc = {txt : 'a;loc : Location.t;}type variance = Asttypes.variance =| Covariant| Contravariant| Invariant