diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-10 17:28:47 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-10 17:28:47 +0000 |
| commit | 20b4a46e9956537a0bb21c5eacf2539dee95cb67 (patch) | |
| tree | a126e4c3f32f20fa6532a9cbd47e8719aa9a14ca /pretyping | |
| parent | d9f98fee95838b9d9cf83d218a0d927c04a38870 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@310 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarutil.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 87fd80963..77366d601 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -304,8 +304,8 @@ let rec solve_simple_eqn conv_algo isevars ((pbty,t1,t2) as pb) = | (true,true) -> if num_of_evar t1 = num_of_evar t2 then solve_refl conv_algo isevars t1 t2 - else if Array.length(args_of_const t1) < - Array.length(args_of_const t2) then + else if Array.length(snd (destEvar t1)) < + Array.length(snd (destEvar t2)) then Some (evar_define isevars t2 t1) else Some (evar_define isevars t1 t2) |