diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-30 09:13:40 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-30 09:30:53 +0200 |
commit | 538b77dbb3b7799dc4d2e18033fc4fbf2eb26f7f (patch) | |
tree | 53478ded9dfb8108402d7f45fa1300edd1569a20 /interp/constrexpr_ops.ml | |
parent | 2bbf1305a080667d8547c44b2684010aba3d8d45 (diff) |
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.
Diffstat (limited to 'interp/constrexpr_ops.ml')
-rw-r--r-- | interp/constrexpr_ops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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.") |