X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_proof_checking%2FcicReduction.ml;h=5a638b5f763dff99df786eda8413678bfa3c1c9e;hb=b78dcf912b4faf5ebcccec28ce3f60475bcdd435;hp=56e98775f31caf7276303a091dbeb22612128046;hpb=ddc473c05167ab7aafafcc13425a154b9b0fd57f;p=helm.git

diff --git a/helm/software/components/cic_proof_checking/cicReduction.ml b/helm/software/components/cic_proof_checking/cicReduction.ml
index 56e98775f..5a638b5f7 100644
--- a/helm/software/components/cic_proof_checking/cicReduction.ml
+++ b/helm/software/components/cic_proof_checking/cicReduction.ml
@@ -969,8 +969,8 @@ let are_convertible whd ?(subst=[]) ?(metasenv=[])  =
     end
   in
    debug t1 [t2] "PREWHD";
-   let t1' = whd ?delta:(Some true) ?subst:(Some subst) context t1 in
-   let t2' = whd ?delta:(Some true) ?subst:(Some subst) context t2 in
+   let t1' = whd ~delta:true ~subst context t1 in
+   let t2' = whd ~delta:true ~subst context t2 in
     debug t1' [t2'] "POSTWHD";
     aux2 test_equality_only t1' t2' ugraph
  in