diff options
| author | herbelin | 2000-10-01 13:18:11 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 13:18:11 +0000 |
| commit | 402679a57beec382cf90cbcddfc00d3f702cba74 (patch) | |
| tree | 4dcabc4b32bfff9aa4127fe9086f6e4e6a826dbb | |
| parent | 5b8198526d519f547d33c693bba69ebcda340cba (diff) | |
Code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@618 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 42dcb18f51..8759158187 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 d9193a8ff4..14381b7d7d 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); |