diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-23 17:30:32 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-11-23 17:30:32 +0000 |
| commit | 3c98142bfe4c709aa680925314c6d57032156961 (patch) | |
| tree | e047877fd2b202b17189f79a02b9ad217e7390e2 /pretyping/glob_ops.ml | |
| parent | e363a1929d9a57643ac4b947cfafbb65bfd878cd (diff) | |
Added a constr_pattern_eq
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15995 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/glob_ops.ml')
| -rw-r--r-- | pretyping/glob_ops.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/pretyping/glob_ops.ml b/pretyping/glob_ops.ml index 7ef0bd1f7..8bd8dc217 100644 --- a/pretyping/glob_ops.ml +++ b/pretyping/glob_ops.ml @@ -33,6 +33,13 @@ let map_glob_decl_left_to_right f (na,k,obd,ty) = let comp2 = f ty in (na,k,comp1,comp2) +let glob_sort_eq g1 g2 = match g1, g2 with +| GProp, GProp -> true +| GSet, GSet -> true +| GType None, GType None -> true +| GType (Some s1), GType (Some s2) -> String.equal s1 s2 +| _ -> false + let map_glob_constr_left_to_right f = function | GApp (loc,g,args) -> let comp1 = f g in |