diff options
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 00000000..d22b7ed1 --- /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)]. |