From 20b4a46e9956537a0bb21c5eacf2539dee95cb67 Mon Sep 17 00:00:00 2001 From: barras Date: Fri, 10 Mar 2000 17:28:47 +0000 Subject: *** empty log message *** git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@310 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/evarutil.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pretyping') 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) -- cgit v1.2.3