diff options
| author | sacerdot | 2004-09-29 10:25:17 +0000 |
|---|---|---|
| committer | sacerdot | 2004-09-29 10:25:17 +0000 |
| commit | 5d8c962ab6772d309752050f612c01cf7406b501 (patch) | |
| tree | 865599f1a4d4e916264e43c9cceebca8e2c05b08 /tactics/setoid_replace.ml | |
| parent | c5dc4774406997dbd84a4e949dfe781eb95e5c6a (diff) | |
Hugly temporary notation
Add Morphism constr @ arugments_list @ output as name
replaced with the nicer (stable?) notation
Add Morphism constr with signature signature as name
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6149 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.ml')
| -rw-r--r-- | tactics/setoid_replace.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index ef09d9489f..6360799797 100644 --- a/tactics/setoid_replace.ml +++ b/tactics/setoid_replace.ml @@ -219,7 +219,9 @@ let prmorphism_argument_gen prrelation (variance,rel) = let prargument_class = prmorphism_argument_gen prrelation_class -let pr_morphism_argument = prmorphism_argument_gen Ppconstrnew.pr_constr +let pr_morphism_signature (l,c) = + prlist (prmorphism_argument_gen Ppconstrnew.pr_constr) l ++ + Ppconstrnew.pr_constr c let prmorphism k m = prterm k ++ str ": " ++ @@ -698,7 +700,8 @@ let morphism_hook stre ref = add_morphism (Some (pf_id,argsconstr,outputconstr)) mor_id (m,args,output); no_more_edited pf_id -type morphism_argument = bool option * Topconstr.constr_expr +type morphism_signature = + (bool option * Topconstr.constr_expr) list * Topconstr.constr_expr let new_named_morphism id m sign = let sign = |