diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-30 08:40:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-07 13:18:50 +0200 |
| commit | 45e1e0dcba3101b6a9e096f18c28da899615af7f (patch) | |
| tree | 3e5e935d6eb6bfb718b9fe379d02ec018e7395d9 /checker/cic.mli | |
| parent | e398b8b5dadb0cd75cd6cfb86525ccb039d75d49 (diff) | |
Fix the checker by merely adapting the data structure.
Unluckily, this is completely wrong as we trust the inlined term to be
well-typed in some unavailable environment. To start with, the checker
should not even rely on substitutions as it does not trust functors,
but it does anyways. I have thus commented this code as a useful backdoor
for when Coq is used to implement the next blockchain Ponzi scheme.
We really need to sort this out though.
Diffstat (limited to 'checker/cic.mli')
| -rw-r--r-- | checker/cic.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/cic.mli b/checker/cic.mli index 27e2a479f..7ec345768 100644 --- a/checker/cic.mli +++ b/checker/cic.mli @@ -128,7 +128,7 @@ type section_context = unit (** {6 Substitutions} *) type delta_hint = - | Inline of int * constr option + | Inline of int * (Univ.AUContext.t * constr) option | Equiv of KerName.t type delta_resolver = ModPath.t MPmap.t * delta_hint KNmap.t |