aboutsummaryrefslogtreecommitdiffhomepage
path: root/toplevel/command.ml
diff options
context:
space:
mode:
authorGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2014-08-12 14:03:32 +0200
committerGravatar Hugo Herbelin <Hugo.Herbelin@inria.fr>2014-09-12 10:39:32 +0200
commit012fe1a96ba81ab0a7fa210610e3f25187baaf1d (patch)
tree32282ac2f1198738c8c545b19215ff0a0d9ef6ce /toplevel/command.ml
parentb720cd3cbefa46da784b68a8e016a853f577800c (diff)
Referring to evars by names. Added a parser for evars (but parsing of
instances still to do). Using heuristics to name after the quantifier name it comes. Also added a "sigma" to almost all printing functions.
Diffstat (limited to 'toplevel/command.ml')
-rw-r--r--toplevel/command.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml
index 115c245f3..df07026f6 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -845,7 +845,7 @@ let build_wellfounded (recname,n,bl,arityc,body) r measure notation =
let error () =
user_err_loc (constr_loc r,
"Command.build_wellfounded",
- Printer.pr_constr_env env rel ++ str " is not an homogeneous binary relation.")
+ Printer.pr_constr_env env !evdref rel ++ str " is not an homogeneous binary relation.")
in
try
let ctx, ar = Reductionops.splay_prod_n env !evdref 2 relty in