Module Primred

type _ action_kind =
| IncompatTypes : _ CPrimitives.prim_type -> Names.Constant.t action_kind
| IncompatInd : _ CPrimitives.prim_ind -> Names.inductive action_kind
Reduction of primitives
type exn += IncompatibleDeclarations : 'a action_kind * 'a * 'a -> exn
val add_retroknowledge : Environ.env -> Retroknowledge.action -> Environ.env

May raise IncomtibleDeclarations

val get_int_type : Environ.env -> Names.Constant.t
val get_float_type : Environ.env -> Names.Constant.t
val get_cmp_type : Environ.env -> Names.Constant.t
val get_bool_constructors : Environ.env -> Names.constructor * Names.constructor
val get_carry_constructors : Environ.env -> Names.constructor * Names.constructor
val get_pair_constructor : Environ.env -> Names.constructor
val get_cmp_constructors : Environ.env -> Names.constructor * Names.constructor * Names.constructor
val get_f_cmp_constructors : Environ.env -> Names.constructor * Names.constructor * Names.constructor * Names.constructor
val get_f_class_constructors : Environ.env -> Names.constructor * Names.constructor * Names.constructor * Names.constructor * Names.constructor * Names.constructor * Names.constructor * Names.constructor * Names.constructor
exception NativeDestKO
module type RedNativeEntries = sig ... end
module type RedNative = sig ... end
module RedNative : functor (E : RedNativeEntries) -> RedNative with type elem = E.elem with type args = E.args with type evd = E.evd with type uinstance = E.uinstance