diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-17 16:06:20 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-17 16:06:41 +0200 |
commit | d4a0f7af3b55792c548fae6e47eeef0925ee6e23 (patch) | |
tree | 366af717da5174220f62e64174a02fc3e764d708 | |
parent | 90d64647d3fd5dbf5c337944dc0038f0b19b8a51 (diff) |
Complying an ocaml warning.
-rw-r--r-- | toplevel/record.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 4b8a4fa0d..97f7ec85b 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -219,7 +219,6 @@ let declare_projections indsp ?(kind=StructureComponent) ?name coers fieldimpls let x = match name with Some n -> Name n | None -> Namegen.named_hd (Global.env()) r Anonymous in let fields = instantiate_possibly_recursive_type indu paramdecls fields in let lifted_fields = Termops.lift_rel_context 1 fields in - let nfields = List.length fields in let (_,kinds,sp_projs,_) = List.fold_left3 (fun (nfi,kinds,sp_projs,subst) coe (fi,optci,ti) impls -> |