diff options
-rw-r--r-- | tactics/inv.ml | 2 | ||||
-rw-r--r-- | toplevel/command.ml | 1 |
2 files changed, 0 insertions, 3 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 42dcb18f5..875915818 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -64,8 +64,6 @@ let dest_match_eq gls eqn = errorlabstrm "dest_match_eq" [< 'sTR "no primitive equality here" >])) -let implicit = Sort implicit_sort - (* Environment management *) let push_rel_type sigma (na,t) env = push_rel_decl (na,make_typed t (get_sort_of env sigma t)) env diff --git a/toplevel/command.ml b/toplevel/command.ml index d9193a8ff..14381b7d7 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -248,7 +248,6 @@ let build_recursive lnameargsardef = (mkFix ((Array.of_list nvrec,i), (varrec,List.map (fun id -> Name id) lnamerec, recvec))); - (* (mkFixDlam (Array.of_list nvrec) i varrec recvec); *) const_entry_type = None } in declare_constant fi (ce, n); |