BIG FAT COMMIT REGARDING COERCIONS:

[helm.git] / components / cic / cic.ml

diff --git a/components/cic/cic.ml b/components/cic/cic.ml
index 20a6cb457dec63c700283ac952204357c38ab0de..5495872151bda13625042b884b9c8d77dd0943b3 100644 (file)
--- a/components/cic/cic.ml
+++ b/components/cic/cic.ml
@@ -66,12 +66,13 @@ type object_flavour =
   ]
 
 type object_class =
-  [ `Coercion
+  [ `Coercion of int
   | `Elim of sort   (** elimination principle; if sort is Type, the universe is
                       * not relevant *)
-  | `Record of (string * bool) list (** 
+  | `Record of (string * bool * int) list (** 
                         inductive type that encodes a record; the arguments are
-                        the record fields names and if they are coercions *)
+                        the record fields names and if they are coercions and
+                        then the coercion arity *)
   | `Projection     (** record projection *)
   ]