From 07b11f799ba50ccd5e59d35dbab570ec76c2fecc Mon Sep 17 00:00:00 2001 From: barras Date: Mon, 30 Oct 2006 12:41:21 +0000 Subject: fixed field_simplify + changed precedence of let and fun in ltac git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9319 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Reals/Ranalysis.v | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'theories/Reals/Ranalysis.v') diff --git a/theories/Reals/Ranalysis.v b/theories/Reals/Ranalysis.v index 854abdd60..44be747da 100644 --- a/theories/Reals/Ranalysis.v +++ b/theories/Reals/Ranalysis.v @@ -789,14 +789,13 @@ Ltac reg := try (change (continuity_pt aux X2) in |- *; is_cont_pt) || is_cont_pt) | |- (derive_pt ?X1 ?X2 ?X3 = ?X4) => let trm := eval cbv beta in (X1 AppVar) in - let aux := rew_term trm in - (intro_hyp_pt aux X2; - let aux2 := deriv_proof aux X2 in - (try - (replace (derive_pt X1 X2 X3) with (derive_pt aux X2 aux2); - [ simplify_derive aux X2; - try - unfold plus_fct, minus_fct, mult_fct, div_fct, id, fct_cte, - inv_fct, opp_fct in |- *; (ring || ring_simplify) - | try apply pr_nu ]) || is_diff_pt)) + let aux := rew_term trm in + intro_hyp_pt aux X2; + (let aux2 := deriv_proof aux X2 in + try + (replace (derive_pt X1 X2 X3) with (derive_pt aux X2 aux2); + [ simplify_derive aux X2; + try unfold plus_fct, minus_fct, mult_fct, div_fct, id, fct_cte, + inv_fct, opp_fct in |- *; ring || ring_simplify + | try apply pr_nu ]) || is_diff_pt) end. -- cgit v1.2.3