From 538b77dbb3b7799dc4d2e18033fc4fbf2eb26f7f Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Tue, 30 Sep 2014 09:13:40 +0200 Subject: Add syntax for naming new goals in refine: writing ?[id] instead of _ will name the goal id; writing ?[?id] will use the first fresh name available based with prefix id. Tactics intro, rename, change, ... from logic.ml now preserve goal name; cut preserves goal name on its main premise. --- interp/constrexpr_ops.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'interp/constrexpr_ops.ml') diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index 01efef940..6056c9b9d 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -242,7 +242,7 @@ let constr_loc = function | CCases (loc,_,_,_,_) -> loc | CLetTuple (loc,_,_,_,_) -> loc | CIf (loc,_,_,_,_) -> loc - | CHole (loc, _, _) -> loc + | CHole (loc,_,_,_) -> loc | CPatVar (loc,_) -> loc | CEvar (loc,_,_) -> loc | CSort (loc,_) -> loc @@ -339,7 +339,7 @@ let coerce_to_id = function let coerce_to_name = function | CRef (Ident (loc,id),_) -> (loc,Name id) - | CHole (loc,_,_) -> (loc,Anonymous) + | CHole (loc,_,_,_) -> (loc,Anonymous) | a -> Errors.user_err_loc (constr_loc a,"coerce_to_name", str "This expression should be a name.") -- cgit v1.2.3