Primred (coq-core.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
  (E : RedNativeEntries) : 
  RedNative
    with type elem = E.elem
    with type args = E.args
    with type evd = E.evd
    with type uinstance = E.uinstance