diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-12-09 23:38:00 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-12-10 17:44:19 +0100 |
| commit | fb77937a6ba0fe45e978911db08de57f931683e1 (patch) | |
| tree | 7a82660e8a0686d4989a615bf5c839ec2e7d8c60 /theories/Logic/WKL.v | |
| parent | 20e1829ad3de42dd322af972c6f9a585f40738ef (diff) | |
Changing syntax of pat/constr1.../constrn into pat%constr1...%constrn.
Marking it as experimental.
Diffstat (limited to 'theories/Logic/WKL.v')
| -rw-r--r-- | theories/Logic/WKL.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Logic/WKL.v b/theories/Logic/WKL.v index 408eca4a3..abe6a8d99 100644 --- a/theories/Logic/WKL.v +++ b/theories/Logic/WKL.v @@ -40,7 +40,7 @@ Proposition is_path_from_characterization P n l : Proof. intros. split. - induction 1 as [|* HP _ (l'&Hl'&HPl')|* HP _ (l'&Hl'&HPl')]. - + exists []. split. reflexivity. intros n <-/le_n_0_eq. assumption. + + exists []. split. reflexivity. intros n <-%le_n_0_eq. assumption. + exists (true :: l'). split. apply eq_S, Hl'. intros [|] H. * assumption. * simpl. rewrite <- app_assoc. apply HPl', le_S_n, H. @@ -51,10 +51,10 @@ intros. split. + constructor. apply (HPl' 0). apply le_0_n. + eapply next_left. * apply (HPl' 0), le_0_n. - * fold (length l'). apply IHl'. intros n' H/le_n_S. apply HPl' in H. simpl in H. rewrite <- app_assoc in H. assumption. + * fold (length l'). apply IHl'. intros n' H%le_n_S. apply HPl' in H. simpl in H. rewrite <- app_assoc in H. assumption. + apply next_right. * apply (HPl' 0), le_0_n. - * fold (length l'). apply IHl'. intros n' H/le_n_S. apply HPl' in H. simpl in H. rewrite <- app_assoc in H. assumption. + * fold (length l'). apply IHl'. intros n' H%le_n_S. apply HPl' in H. simpl in H. rewrite <- app_assoc in H. assumption. Qed. (** [infinite_from P l] means that we can find arbitrary long paths |