diff options
| author | Hugo Herbelin | 2016-10-29 14:38:06 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-10-29 14:41:38 +0200 |
| commit | b3a57e84241c40915169aa410f5606175cf609be (patch) | |
| tree | 67853c0a01cab335bfbac84e42311b31b14cd25a | |
| parent | 0827cf4c6de1df1ab5cdb457c2ca8de6001427f4 (diff) | |
Removing dead code.
| -rw-r--r-- | toplevel/record.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 9c4d41ea50..ba9e7ee22f 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -517,10 +517,6 @@ let add_inductive_class ind = let k = let ctx = oneind.mind_arity_ctxt in let inst = Univ.UContext.instance mind.mind_universes in - let map = function - | LocalDef _ -> None - | LocalAssum (_, t) -> Some (lazy t) - in let ty = Inductive.type_of_inductive (push_rel_context ctx (Global.env ())) ((mind,oneind),inst) |