diff options
| author | herbelin | 2008-06-08 16:13:37 +0000 |
|---|---|---|
| committer | herbelin | 2008-06-08 16:13:37 +0000 |
| commit | 47e5f716f7ded0eec43b00d49955d56c370c3596 (patch) | |
| tree | e7fbe16925eacc72bdd9ebeb65c2a20b8bb0eef0 /contrib/interface/showproof.ml | |
| parent | 70f8c345685278a567fbb075f222c79f0533e90e (diff) | |
- Extension de "generalize" en "generalize c as id at occs".
- Ajout clause "in" à "remember" (et passage du code en ML).
- Ajout clause "in" à "induction"/"destruct" qui, en ce cas, ajoute
aussi une égalité pour se souvenir du terme sur lequel l'induction
ou l'analyse de cas s'applique.
- Ajout "pose t as id" en standard (Matthieu: j'ai enlevé celui de
Programs qui avait la sémantique de "pose proof" tandis que le nouveau
a la même sémantique que "pose (id:=t)").
- Un peu de réorganisation, uniformisation de noms dans Arith, et
ajout EqNat dans Arith.
- Documentation tactiques et notations de tactiques.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11072 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/showproof.ml')
| -rw-r--r-- | contrib/interface/showproof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/interface/showproof.ml b/contrib/interface/showproof.ml index 7f20196818..a2a504fb4b 100644 --- a/contrib/interface/showproof.ml +++ b/contrib/interface/showproof.ml @@ -1185,7 +1185,7 @@ let rec natural_ntree ig ntree = | TacFix (_,n) -> natural_fix ig lh g gs n ltree | TacSplit (_,_,NoBindings) -> natural_split ig lh g gs ge [] ltree | TacSplit(_,_,ImplicitBindings l) -> natural_split ig lh g gs ge (List.map snd l) ltree - | TacGeneralize l -> natural_generalize ig lh g gs ge (List.map snd l) ltree + | TacGeneralize l -> natural_generalize ig lh g gs ge l ltree | TacRight _ -> natural_right ig lh g gs ltree | TacLeft _ -> natural_left ig lh g gs ltree | (* "Simpl" *)TacReduce (r,cl) -> @@ -1652,7 +1652,7 @@ and natural_split ig lh g gs ge la ltree = | _ -> assert false and natural_generalize ig lh g gs ge la ltree = match la with - [arg] -> + [(_,(_,arg)),_] -> let _env= (gLOB ge) in let arg1= (*dbize env*) arg in let _type_arg=type_of (Global.env()) Evd.empty arg in |