diff options
| author | sacerdot | 2001-01-11 16:28:18 +0000 |
|---|---|---|
| committer | sacerdot | 2001-01-11 16:28:18 +0000 |
| commit | 44cbc3eb3574898e541e27bc4ec11bc8848a802c (patch) | |
| tree | fe8bcd6903a25ca848ecc9b04e289ff384ef96ce | |
| parent | c4d6bd430c4ba0cbc0c9d444583c8291537ebc3e (diff) | |
Many unuseful rewritings are no more done by Ring.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1243 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/ring/ring.ml | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index aa7b305c09..3ce270a054 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -556,15 +556,13 @@ let raw_polynom th op lc gl = let polynom_tac = List.fold_right2 (fun ci (c'i, c''i, c'i_eq_c''i) tac -> + let c'''i = pf_nf gl c''i in tclTHENS - (elim_type (mkAppA [| Lazy.force coq_eqT; th.th_a; c'i; ci |])) - [ tclTHENS - (elim_type - (mkAppA [| Lazy.force coq_eqT; th.th_a; c''i; c'i |])) - [ tac; - h_exact c'i_eq_c''i ]; - h_reflexivity]) - lc ltriplets polynom_unfold_tac + (elim_type (mkAppA [| Lazy.force coq_eqT; th.th_a; c'''i; ci |])) + [ tac ; + h_exact c'i_eq_c''i + ] + ) lc ltriplets polynom_unfold_tac in polynom_tac gl |