diff options
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 7ef0bd1f70..8bd8dc217c 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 |