diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-05 19:27:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-05 19:27:21 +0000 |
| commit | 2c94457ca8586534b07c039ddcb1d7d54712dd65 (patch) | |
| tree | 0198c95e244d12823ef9a31ed5a28048488b6f6e | |
| parent | 2f39779fa285b7cacc7c9ad422cc86a852ecbdee (diff) | |
Suppression d'un Cast inutile
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@660 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index d7b67ba39..9aeff1f28 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -436,7 +436,7 @@ let prim_refiner r sigma goal = | { name = Convert_concl; terms = [cl'] } -> let cl'ty = type_of env sigma cl' in if is_conv_leq env sigma cl' cl then - let sg = mk_goal info env (mkCast (cl',cl'ty)) in + let sg = mk_goal info env cl' in [sg] else error "convert-concl rule passed non-converting term" |