diff options
| -rw-r--r-- | pretyping/syntax_def.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/syntax_def.ml b/pretyping/syntax_def.ml index 0bb144867b..ea50976696 100644 --- a/pretyping/syntax_def.ml +++ b/pretyping/syntax_def.ml @@ -71,6 +71,9 @@ let rec set_loc loc = function | RApp (_,a,b) -> RApp (loc,set_loc loc a,List.map (set_loc loc) b) | RSort (_,a) -> RSort (loc,a) | RHole (_,a) -> RHole (loc,a) + | RLambda (_,na,ty,c) -> RLambda (loc,na,set_loc loc ty,set_loc loc c) + | RProd (_,na,ty,c) -> RProd (loc,na,set_loc loc ty,set_loc loc c) + | RLetIn (_,na,b,c) -> RLetIn (loc,na,set_loc loc b,set_loc loc c) | a -> warning "Unrelocatated syntactic definition"; a let search_syntactic_definition loc kn = |