diff options
| -rw-r--r-- | pretyping/evarsolve.ml | 4 | ||||
| -rw-r--r-- | test-suite/success/evars.v | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index d0a7e39822..cb5673c2ea 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -120,9 +120,9 @@ let test_success conv_algo env evd c c' rhs = let add_conv_oriented_pb (pbty,env,t1,t2) evd = match pbty with - | Some true -> add_conv_pb (Reduction.CUMUL,env,t2,t1) evd + | Some true -> add_conv_pb (Reduction.CUMUL,env,t1,t2) evd | Some false -> add_conv_pb (Reduction.CUMUL,env,t2,t1) evd - | None -> add_conv_pb (Reduction.CONV,env,t2,t1) evd + | None -> add_conv_pb (Reduction.CONV,env,t1,t2) evd (*------------------------------------* * Restricting existing evars * diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v index 21c72475ed..f42c6a036e 100644 --- a/test-suite/success/evars.v +++ b/test-suite/success/evars.v @@ -404,3 +404,7 @@ Abort. not strict enough evar restriction) *) Check match Some _ with None => _ | _ => _ end. + +(* Used to fail for a couple of days in Nov 2014 *) + +Axiom test : forall P1 P2, P1 = P2 -> P1 -> P2. |