diff options
author | xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 07:33:57 +0000 |
---|---|---|
committer | xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 07:33:57 +0000 |
commit | ec5ed7870b4b59e05c5e994c9bad35e28685b8bd (patch) | |
tree | 6b735f9c86df8102f132946afbf7b728f5b19edc /checker/declarations.ml | |
parent | 38d9a3342f626d16bcf5c993bf15ff3e6e8ee8d9 (diff) |
Getting rid of the use of deprecated elements (from the OCaml standard library).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16882 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/declarations.ml')
-rw-r--r-- | checker/declarations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index a6a7f9405..dfa7d401e 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -446,7 +446,7 @@ let is_opaque cb = match cb.const_body with let subst_rel_declaration sub (id,copt,t as x) = let copt' = Option.smartmap (subst_mps sub) copt in let t' = subst_mps sub t in - if copt == copt' & t == t' then x else (id,copt',t') + if copt == copt' && t == t' then x else (id,copt',t') let subst_rel_context sub = List.smartmap (subst_rel_declaration sub) |