diff options
| author | herbelin | 2003-11-29 19:12:47 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-29 19:12:47 +0000 |
| commit | 54d57c2897d1578dc21e746aef03748ab1fb9ced (patch) | |
| tree | 1c8a36081706f1c03cb66246b81968df9e953905 /contrib7/interface/AddDad.v | |
| parent | 7ee14e9fb95e4e182f9983278275a6052d9b60da (diff) | |
Deplacement des fichiers ancienne syntaxe dans theories7, contrib7 et states7
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5034 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib7/interface/AddDad.v')
| -rw-r--r-- | contrib7/interface/AddDad.v | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/contrib7/interface/AddDad.v b/contrib7/interface/AddDad.v new file mode 100644 index 0000000000..d22b7ed16c --- /dev/null +++ b/contrib7/interface/AddDad.v @@ -0,0 +1,19 @@ +Grammar vernac vernac : ast := + add_dad_rule00 ["AddDadRule" stringarg($name) constrarg($pat) + "first_path" "second_path" tacarg($tac) "."] -> + [(AddDadRule $name $pat (NUMBERLIST) (NUMBERLIST) (TACTIC $tac))]. +Grammar vernac vernac:ast := +| add_dad_rule01 ["AddDadRule" stringarg($name) constrarg($pat) + "first_path" "second_path" ne_numarg_list($l) tacarg($tac) "."] -> + [(AddDadRule $name $pat (NUMBERLIST) (NUMBERLIST ($LIST $l)) (TACTIC $tac))] +| add_dad_rule10 ["AddDadRule" stringarg($name) constrarg($pat) + "first_path" ne_numarg_list($l) "second_path" tacarg($tac) "."] -> + [(AddDadRule $name $pat (NUMBERLIST ($LIST $l))(NUMBERLIST) (TACTIC $tac))] +| add_dad_rule11 ["AddDadRule" stringarg($name) constrarg($pat) + "first_path" ne_numarg_list($l) "second_path" ne_numarg_list($l1) + tacarg($tac) "."] -> + [(AddDadRule $name $pat (NUMBERLIST ($LIST $l))(NUMBERLIST ($LIST $l1)) + (TACTIC $tac))]. + +Grammar vernac vernac : ast := + start_dad [ "StartDad" "."] -> [(StartDad)]. |