diff options
| author | herbelin | 2005-12-26 14:06:51 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-26 14:06:51 +0000 |
| commit | 1061eb505a223ac7cbcec0c5ae9354cd24d9b054 (patch) | |
| tree | a13186a5cb22e178f8e9915899be06b5ab1fe736 /contrib/ring | |
| parent | f6e1acbbe00aeb479fde229c3941e3a6a2d53068 (diff) | |
Suppression des parseurs et printeurs v7; suppression du traducteur (mcanismes de renommage des noms de constantes, de module, de ltac et de certaines variables lies de lemmes et de tactiques, mcanisme d'ajout d'arguments implicites, etc.)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/ring')
| -rw-r--r-- | contrib/ring/g_quote.ml4 | 6 | ||||
| -rw-r--r-- | contrib/ring/g_ring.ml4 | 4 | ||||
| -rw-r--r-- | contrib/ring/ring.ml | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/contrib/ring/g_quote.ml4 b/contrib/ring/g_quote.ml4 index e439feb8c4..808cbbf274 100644 --- a/contrib/ring/g_quote.ml4 +++ b/contrib/ring/g_quote.ml4 @@ -12,7 +12,7 @@ open Quote -TACTIC EXTEND Quote - [ "Quote" ident(f) ] -> [ quote f [] ] -| [ "Quote" ident(f) "[" ne_ident_list(lc) "]"] -> [ quote f lc ] +TACTIC EXTEND quote + [ "quote" ident(f) ] -> [ quote f [] ] +| [ "quote" ident(f) "[" ne_ident_list(lc) "]"] -> [ quote f lc ] END diff --git a/contrib/ring/g_ring.ml4 b/contrib/ring/g_ring.ml4 index 9c0e5c4e7e..0cb86dfdd9 100644 --- a/contrib/ring/g_ring.ml4 +++ b/contrib/ring/g_ring.ml4 @@ -13,8 +13,8 @@ open Quote open Ring -TACTIC EXTEND Ring - [ "Ring" constr_list(l) ] -> [ polynom l ] +TACTIC EXTEND ring + [ "ring" constr_list(l) ] -> [ polynom l ] END (* The vernac commands "Add Ring" and co *) diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index 4884f23c6f..5448d1389c 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -835,11 +835,11 @@ let raw_polynom th op lc gl = (tclORELSE (tclORELSE (h_exact c'i_eq_c''i) - (h_exact (mkApp(build_coq_sym_eqT (), + (h_exact (mkApp(build_coq_sym_eq (), [|th.th_a; c'''i; ci; c'i_eq_c''i |])))) (tclTHENS (elim_type - (mkApp(build_coq_eqT (), [|th.th_a; c'''i; ci |]))) + (mkApp(build_coq_eq (), [|th.th_a; c'''i; ci |]))) [ tac; h_exact c'i_eq_c''i ])) ) |