diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-27 21:29:03 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-27 21:29:03 +0000 |
| commit | 5086461b2de4c3e87146ac803b99538a4c187b98 (patch) | |
| tree | 3058eccf1ad8b6fc5ec85d78dd399d20759b903c /syntax | |
| parent | fbb28e73ee630e4c2ae11a7dcdd53655cce0e1a3 (diff) | |
Interprétation des qualidarg
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1496 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rw-r--r-- | syntax/PPTactic.v | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/syntax/PPTactic.v b/syntax/PPTactic.v index 2ee107c1b..5074dfd89 100644 --- a/syntax/PPTactic.v +++ b/syntax/PPTactic.v @@ -350,5 +350,11 @@ Syntax tactic level 8: tactic_to_constr [<<(COMMAND $c)>>] -> [ $c:"constr":9 ] | tactic_to_castedconstr [<<(CASTEDCOMMAND $c)>>] -> [ $c:"constr":9 ] - | tactic_to_openconstr [<<(CASTEDOPENCOMMAND $c)>>] -> [ $c:"constr":9 ]. + | tactic_to_openconstr [<<(CASTEDOPENCOMMAND $c)>>] -> [ $c:"constr":9 ] + + (* This is produced bu UNFOLDLIST *) + | tactic_qualidarg_constr [<<(COMMAND (QUALIDARG $p))>>] -> [(QUALIDARG $p)] + | tactic_qualidarg_nil [<<(QUALIDARG $id)>>] -> [ $id ] + | tactic_qualidarg_cons [<<(QUALIDARG $id $p)>>] -> + [ $id [1 0] "." (QUALID $p) ]. |