diff options
| author | herbelin | 2005-01-21 17:24:37 +0000 |
|---|---|---|
| committer | herbelin | 2005-01-21 17:24:37 +0000 |
| commit | b7af7027d15afa2dee1695792a2658f0df392956 (patch) | |
| tree | bebcce8f9fbb305d0bd9aa203ec843677665323b /tactics/setoid_replace.mli | |
| parent | accec4fc961d85ef21e73e690dedc36ce4c25f46 (diff) | |
Compatibilité ocamlweb pour cible doc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6621 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/setoid_replace.mli')
| -rw-r--r-- | tactics/setoid_replace.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/setoid_replace.mli b/tactics/setoid_replace.mli index 426ff6edd8..09fb39da8b 100644 --- a/tactics/setoid_replace.mli +++ b/tactics/setoid_replace.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id$ *) +(*i $Id$ i*) open Term open Proof_type @@ -25,8 +25,8 @@ type relation = } type 'a relation_class = - Relation of 'a (* the rel_aeq of the relation or the relation*) - | Leibniz of constr option (* the carrier (if eq is partially instantiated)*) + Relation of 'a (* the [rel_aeq] of the relation or the relation*) + | Leibniz of constr option (* the [carrier] (if [eq] is partially instantiated)*) type 'a morphism = { args : (bool option * 'a relation_class) list; @@ -47,7 +47,7 @@ val print_setoids : unit -> unit val equiv_list : unit -> constr list val default_relation_for_carrier : ?filter:(relation -> bool) -> types -> relation relation_class -(* [default_morphism] raises Not_found *) +(* [default_morphism] raises [Not_found] *) val default_morphism : ?filter:(constr morphism -> bool) -> constr -> relation morphism |