]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/inversion.ma
Tactic discriminate activated in matita.
[helm.git] / helm / matita / tests / inversion.ma
index ccbc4d96b7f2e85b56ecc628f4deb8a9094b5dc0..e61e123d791d687bbc0323ea5f16fc0aa6f6c25a 100644 (file)
@@ -18,5 +18,5 @@ theorem test_inversion: \forall n. le n O \to n=O.
   apply (le_ind ? (\lambda x. O=x \to n=x) ? ? ? H).
   intro. reflexivity.
   simplify. intros.
-  (* manca discriminate H3 *)
+  discriminate H3.
 qed.
\ No newline at end of file