diff options
Diffstat (limited to 'contrib/correctness/pmisc.ml')
| -rw-r--r-- | contrib/correctness/pmisc.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/correctness/pmisc.ml b/contrib/correctness/pmisc.ml index 60fe808e0f..ad7779036e 100644 --- a/contrib/correctness/pmisc.ml +++ b/contrib/correctness/pmisc.ml @@ -143,7 +143,8 @@ let real_subst_in_constr = replace_vars (* Coq constants *) let coq_constant d s = - make_path (List.map id_of_string ("Coq" :: d)) (id_of_string s) CCI + make_path + (make_dirpath (List.map id_of_string ("Coq" :: d))) (id_of_string s) CCI let bool_sp = coq_constant ["Init"; "Datatypes"] "bool" let coq_true = mkMutConstruct ((bool_sp,0),1) |