X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdecidable_kit%2Fdecidable.ma;h=dff89f8d35cc5d5d46a8539a9f8980b57fe2f70f;hb=294c323165c26790c2dd57fdbea2de30278f1ca6;hp=1b2b1fc42423554734d34cd74fa41b544e1fbfdc;hpb=a180bddcd4a8f35de3d7292162ba05d0077723aa;p=helm.git diff --git a/helm/software/matita/library/decidable_kit/decidable.ma b/helm/software/matita/library/decidable_kit/decidable.ma index 1b2b1fc42..dff89f8d3 100644 --- a/helm/software/matita/library/decidable_kit/decidable.ma +++ b/helm/software/matita/library/decidable_kit/decidable.ma @@ -82,7 +82,7 @@ qed. lemma andbPF : ∀a,b:bool. reflect (a = false ∨ b = false) (negb (andb a b)). intros (a b); apply prove_reflect; cases a; cases b; simplify; intros (H); -[1,2,3,4: rewrite > H; [1,2:right|3,4:left] reflexivity +[1,2,3,4: try rewrite > H; [1,2:right|3,4:left] reflexivity |5,6,7,8: unfold Not; intros (H1); [2,3,4: destruct H]; cases H1; destruct H2] qed.