...

[helm.git] / helm / software / matita / library / Fsub / util.ma

diff --git a/helm/software/matita/library/Fsub/util.ma b/helm/software/matita/library/Fsub/util.ma
index ac93f8ccf34d87a34db374802bcb18afe4ab2751..41089172e56d6c76ece6e834aa665db4ba8feee9 100644 (file)
--- a/helm/software/matita/library/Fsub/util.ma
+++ b/helm/software/matita/library/Fsub/util.ma
@@ -127,8 +127,8 @@ elim l
 qed.
 
 lemma max_case : \forall m,n.(max m n) = match (leb m n) with
-      [ false \Rightarrow n
-      | true \Rightarrow m ].
+      [ true \Rightarrow n
+      | false \Rightarrow m ].
 intros;elim m;simplify;reflexivity;
 qed.