diff options
| author | corbinea | 2003-05-25 19:44:31 +0000 |
|---|---|---|
| committer | corbinea | 2003-05-25 19:44:31 +0000 |
| commit | cb134451453a608cc486c1235fde2e08b7eab254 (patch) | |
| tree | f3b607367167c00f2834c753899527a034d0ae25 /contrib/cc | |
| parent | ea484db49c183ab900a78204e4bb7ec233578bff (diff) | |
Ground and CCsolve updates
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4075 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/cc')
| -rw-r--r-- | contrib/cc/CC.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/contrib/cc/CC.v b/contrib/cc/CC.v index 7bd3497872..da7292084f 100644 --- a/contrib/cc/CC.v +++ b/contrib/cc/CC.v @@ -28,9 +28,10 @@ Intros A B H E;Rewrite E;Assumption. Save. Tactic Definition CCsolve := - Match Context With + Repeat (Match Context With [ H: ?1 |- ?2] -> - (Assert (?2==?1);[CC| - Match Reverse Context With - [ H: ?1;Heq: (?2==?1)|- ?2] ->(Rewrite Heq;Exact H)]). + (Assert Heq____:(?2==?1);[CC|(Rewrite Heq____;Exact H)]) + |[ H: ?1; G: ?2 -> ?3 |- ?] -> + (Assert Heq____:(?2==?1) ;[CC| + (Rewrite Heq____ in G;Generalize (G H);Clear G;Intro G)])). |