diff options
Diffstat (limited to 'kernel/sign.ml')
-rw-r--r-- | kernel/sign.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/sign.ml b/kernel/sign.ml index b2a509678..3fced7119 100644 --- a/kernel/sign.ml +++ b/kernel/sign.ml @@ -29,7 +29,7 @@ let empty_named_context = [] let add_named_decl d sign = d::sign let rec lookup_named id = function - | (id',_,_ as decl) :: _ when id_eq id id' -> decl + | (id',_,_ as decl) :: _ when Id.equal id id' -> decl | _ :: sign -> lookup_named id sign | [] -> raise Not_found |