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 /stm/texmacspp.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 'stm/texmacspp.ml')
| -rw-r--r-- | stm/texmacspp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/texmacspp.ml b/stm/texmacspp.ml index 415ea951f..bd6f0fe9e 100644 --- a/stm/texmacspp.ml +++ b/stm/texmacspp.ml @@ -429,7 +429,7 @@ and pp_expr ?(attr=[]) e = (xmlOperator "evar" loc ~attr:["id", string_of_id ek] :: ppcel) | CPatVar (loc, id) -> xmlPatvar (string_of_id id) loc - | CHole (loc, _, _) -> xmlCst ~attr "_" loc + | CHole (loc, _, _, _) -> xmlCst ~attr "_" loc | CIf (loc, test, (_, ret), th, el) -> let return = match ret with | None -> [] |