return_tactic loc (TacticAst.Transitivity t)
]
];
- tactical0: [ [ t = tactical; SYMBOL ";;" -> return_tactical loc t ] ];
+ tactical0: [ [ t = tactical; SYMBOL "." -> return_tactical loc t ] ];
tactical:
[ "command" NONA
[ cmd = command -> return_tactical loc (TacticAst.Command cmd) ]
return_command loc (TacticAst.Baseuri uri)
| [ IDENT "check" | IDENT "Check" ]; t = term ->
return_command loc (TacticAst.Check t)
+(*
+ | [ IDENT "alias" | IDENT "Alias" ]; spec = alias_spec ->
+ return_command loc (TacticAst.Alias spec)
+*)
]
];
script_entry: [