diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-06-19 20:27:32 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-06-19 20:27:32 +0000 |
| commit | 561081533ed884e3565fb71ca1c343bbc3fec448 (patch) | |
| tree | b16690456661c9dcf5d38244f92f036cf7ee21c8 | |
| parent | 5f1e8b75c2f0d138e64cb57fbd7a3479f4b5d066 (diff) | |
Ajout 'Symmetry in Hyp'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4186 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/showproof.ml | 4 | ||||
| -rw-r--r-- | contrib/interface/xlate.ml | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/contrib/interface/showproof.ml b/contrib/interface/showproof.ml index 9ff567588..d33a41f98 100644 --- a/contrib/interface/showproof.ml +++ b/contrib/interface/showproof.ml @@ -159,7 +159,7 @@ let rule_is_complex r = match r with Tactic (TacArg (Tacexp t),_) -> true | Tactic (TacAtom (_,TacAuto _), _) -> true - | Tactic (TacAtom (_,TacSymmetry), _) -> true + | Tactic (TacAtom (_,TacSymmetry _), _) -> true |_ -> false ;; @@ -1143,7 +1143,7 @@ let is_equality_tac = function |"ERewriteParallel"|"ERewriteNormal" |"RewriteLR"|"RewriteRL"|"Replace"),_) | TacReduce _ - | TacSymmetry | TacReflexivity + | TacSymmetry _ | TacReflexivity | TacExact _ | TacIntroPattern _ | TacIntroMove _ | TacAuto _)) -> true | _ -> false diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index c6baa0ecf..c0ba10bdd 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -877,7 +877,8 @@ and xlate_tac = if b then CT_cutrewrite_lr (c, ctf_ID_OPT_SOME id) else CT_cutrewrite_lr (c, ctf_ID_OPT_SOME id) | TacReflexivity -> CT_reflexivity - | TacSymmetry -> CT_symmetry + | TacSymmetry None -> CT_symmetry + | TacSymmetry (Some _) -> xlate_error "TODO: Symmetry in" | TacTransitivity c -> CT_transitivity (xlate_formula c) | TacAssumption -> CT_assumption | TacExact c -> CT_exact (xlate_formula c) |