diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-02-02 18:24:58 +0100 |
|---|---|---|
| committer |  Maxime Dénès <mail@maximedenes.fr> | 2017-03-24 12:17:35 +0100 |
| commit | 648ce5e08f7245f2a775abd1304783c4167e9f2e (patch) | |
| tree | 7d57ea1c188f3e2892e27e544dbadf48de2c975b /interp/constrintern.ml | |
| parent | 4e4fb7bd42364fd623f8e0e0d3007cd79d78764b (diff) | |
Unifying standard "constr_level" names for constructors of local_binder_expr.
RawLocal -> CLocal
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index e101fa6aa..5c90ad402 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -470,11 +470,11 @@ let glob_local_binder_of_extended = function let intern_cases_pattern_fwd = ref (fun _ -> failwith "intern_cases_pattern_fwd") let intern_local_binder_aux ?(global_level=false) intern lvar (env,bl) = function - | LocalRawAssum(nal,bk,ty) -> + | CLocalAssum(nal,bk,ty) -> let env, bl' = intern_assumption intern lvar env nal bk ty in let bl' = List.map (fun a -> GLocalAssum a) bl' in env, bl' @ bl - | LocalRawDef((loc,na as locna),def) -> + | CLocalDef((loc,na as locna),def) -> let indef = intern env def in let term, ty = match indef with @@ -483,7 +483,7 @@ let intern_local_binder_aux ?(global_level=false) intern lvar (env,bl) = functio in (push_name_env lvar (impls_term_list indef) env locna, (GLocalDef ((loc,(na,Explicit,term,ty))))::bl) - | LocalRawPattern (loc,p,ty) -> + | CLocalPattern (loc,p,ty) -> let tyc = match ty with | Some ty -> ty |