diff options
Diffstat (limited to 'pretyping/program.mli')
| -rw-r--r-- | pretyping/program.mli | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/pretyping/program.mli b/pretyping/program.mli index 0572a93a0..5b40b2e71 100644 --- a/pretyping/program.mli +++ b/pretyping/program.mli @@ -7,29 +7,33 @@ (************************************************************************) open Term +open Globnames (** A bunch of Coq constants used by Progam *) -val sig_typ : unit -> constr -val sig_intro : unit -> constr -val sig_proj1 : unit -> constr -val sigT_typ : unit -> constr -val sigT_intro : unit -> constr -val sigT_proj1 : unit -> constr -val sigT_proj2 : unit -> constr +val sig_typ : unit -> global_reference +val sig_intro : unit -> global_reference +val sig_proj1 : unit -> global_reference +val sigT_typ : unit -> global_reference +val sigT_intro : unit -> global_reference +val sigT_proj1 : unit -> global_reference +val sigT_proj2 : unit -> global_reference -val prod_typ : unit -> constr -val prod_intro : unit -> constr -val prod_proj1 : unit -> constr -val prod_proj2 : unit -> constr +val prod_typ : unit -> global_reference +val prod_intro : unit -> global_reference +val prod_proj1 : unit -> global_reference +val prod_proj2 : unit -> global_reference -val coq_eq_ind : unit -> constr -val coq_eq_refl : unit -> constr -val coq_eq_refl_ref : unit -> Globnames.global_reference -val coq_eq_rect : unit -> constr +val coq_eq_ind : unit -> global_reference +val coq_eq_refl : unit -> global_reference +val coq_eq_refl_ref : unit -> global_reference +val coq_eq_rect : unit -> global_reference -val coq_JMeq_ind : unit -> constr -val coq_JMeq_refl : unit -> constr +val coq_JMeq_ind : unit -> global_reference +val coq_JMeq_refl : unit -> global_reference val mk_coq_and : constr list -> constr val mk_coq_not : constr -> constr + +(** Polymorphic application of delayed references *) +val papp : Evd.evar_map ref -> (unit -> global_reference) -> constr array -> constr |