diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-05 12:06:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-14 23:28:16 +0100 |
| commit | e2f27dfcb21c42b72cf8d6a1363251f4c48789cb (patch) | |
| tree | 1bd114ab10ca7c0db82fcdbc0974603840795b9c /kernel/modops.ml | |
| parent | 2a6b7b0dc7093f5706b7a6ebe826b45a5fd8858a (diff) | |
Changing Retrokwnoledge entry type from kind_of_term to constr. It seems it had
no particular purpose.
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index 188bff626..6d0e919f8 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -282,7 +282,7 @@ let subst_structure subst = subst_structure subst do_delta_codom (* lclrk : retroknowledge_action list, rkaction : retroknowledge action *) let add_retroknowledge mp = let perform rkaction env = match rkaction with - |Retroknowledge.RKRegister (f, (Const _ | Ind _ as e)) -> + |Retroknowledge.RKRegister (f, e) when (isConst e || isInd e) -> Environ.register env f e |_ -> Errors.anomaly ~label:"Modops.add_retroknowledge" |