diff options
| author | barras | 2005-06-06 20:08:18 +0000 |
|---|---|---|
| committer | barras | 2005-06-06 20:08:18 +0000 |
| commit | 76dbe6adab29ea6950955c42415cb0b22c15adbe (patch) | |
| tree | 3265ca5beb4cdab102a61e4abe050549c64bcac4 /pretyping/evd.ml | |
| parent | 82b053c589fe74359e009e8216970b170be4383d (diff) | |
essai de typage des instantiations d\'evars
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7117 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index d1d8d38177..4cf17fb77e 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -221,7 +221,14 @@ let create_evar_defs sigma = let evars_of d = d.evars let evars_reset_evd evd d = {d with evars = evd} let reset_evd (sigma,mmap) d = {d with evars = sigma; metas=mmap} -let add_conv_pb pb d = {d with conv_pbs = pb::d.conv_pbs} +let add_conv_pb pb d = +(* let (pbty,c1,c2) = pb in + pperrnl + (Termops.print_constr c1 ++ + (if pbty=Reduction.CUMUL then str " <="++ spc() + else str" =="++spc()) ++ + Termops.print_constr c2);*) + {d with conv_pbs = pb::d.conv_pbs} let evar_source ev d = try List.assoc ev d.history with Not_found -> (dummy_loc, InternalHole) |