aboutsummaryrefslogtreecommitdiffhomepage
path: root/interp/constrintern.ml
diff options
context:
space:
mode:
Diffstat (limited to 'interp/constrintern.ml')
-rw-r--r--interp/constrintern.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 6587b7136..a8dad2216 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -716,7 +716,7 @@ let intern_generalized_binder ?(fail_anonymous=false) intern_type lvar
let id =
match ty with
| CApp (_, (_, CRef (Ident (loc,id))), _) -> id
- | _ -> id_of_string "assum"
+ | _ -> id_of_string "H"
in Implicit_quantifiers.make_fresh ids (Global.env ()) id
in Name name
| _ -> na