diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-28 16:54:39 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-28 16:54:39 +0000 |
| commit | 8afe5c8aebeb13ad0e41f2a5c39c9b03a787641a (patch) | |
| tree | 32494c7edff9608b2760722bbb5ccf46f5e592af /theories/Reals/Ranalysis.v | |
| parent | 5816479511c4702d9e7159a9045718565bb62545 (diff) | |
MAJ pour Reg
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3615 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Ranalysis.v')
| -rw-r--r-- | theories/Reals/Ranalysis.v | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/theories/Reals/Ranalysis.v b/theories/Reals/Ranalysis.v index 17d9ea08f..2575b8508 100644 --- a/theories/Reals/Ranalysis.v +++ b/theories/Reals/Ranalysis.v @@ -456,7 +456,7 @@ Match trm With | _ -> Idtac. (**********) -Tactic Definition Regularity () := +Tactic Definition Reg := Match Context With | [|-(derivable_pt ?1 ?2)] -> Let trm = Eval Cbv Beta in (?1 AppVar) In @@ -473,7 +473,4 @@ Let aux = (RewTerm trm) In IntroHypL aux ?2; Try (Change (continuity_pt aux ?2); | [|-(eqT ? (derive_pt ?1 ?2 ?3) ?4)] -> Let trm = Eval Cbv Beta in (?1 AppVar) In Let aux = (RewTerm trm) In -IntroHypL aux ?2; Let aux2 = (ConsProof aux ?2) In Try (Replace (derive_pt ?1 ?2 ?3) with (derive_pt aux ?2 aux2); [SimplifyDerive aux ?2; Try Unfold plus_fct minus_fct mult_fct div_fct id fct_cte inv_fct opp_fct; Try Ring | Try Apply pr_nu]) Orelse IsDiff_pt. - -(**********) -Tactic Definition Reg () := Regularity (). +IntroHypL aux ?2; Let aux2 = (ConsProof aux ?2) In Try (Replace (derive_pt ?1 ?2 ?3) with (derive_pt aux ?2 aux2); [SimplifyDerive aux ?2; Try Unfold plus_fct minus_fct mult_fct div_fct id fct_cte inv_fct opp_fct; Try Ring | Try Apply pr_nu]) Orelse IsDiff_pt.
\ No newline at end of file |