1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
Require Import Coq.Classes.Morphisms.
Require Import Coq.Lists.List.
Import ListNotations. Open Scope bool_scope.
Lemma fold_left_orb_true ls
: List.fold_left orb ls true = true.
Proof. induction ls as [|?? IHls]; [ reflexivity | assumption ]. Qed.
Lemma fold_left_orb_pull ls v
: List.fold_left orb ls v = orb v (List.fold_left orb ls false).
Proof. destruct v; [ apply fold_left_orb_true | reflexivity ]. Qed.
Fixpoint fold_andb_map {A B} (f : A -> B -> bool) (ls1 : list A) (ls2 : list B)
: bool
:= match ls1, ls2 with
| nil, nil => true
| nil, _ => false
| cons x xs, cons y ys => andb (f x y) (@fold_andb_map A B f xs ys)
| cons _ _, _ => false
end.
Lemma fold_andb_map_map {A B C} f g ls1 ls2
: @fold_andb_map A B f ls1 (@List.map C _ g ls2)
= fold_andb_map (fun a b => f a (g b)) ls1 ls2.
Proof. revert ls1 ls2; induction ls1, ls2; cbn; congruence. Qed.
Lemma fold_andb_map_map1 {A B C} f g ls1 ls2
: @fold_andb_map A B f (@List.map C _ g ls1) ls2
= fold_andb_map (fun a b => f (g a) b) ls1 ls2.
Proof. revert ls1 ls2; induction ls1, ls2; cbn; congruence. Qed.
Lemma fold_andb_map_length A B f ls1 ls2
(H : @fold_andb_map A B f ls1 ls2 = true)
: length ls1 = length ls2.
Proof.
revert ls1 ls2 H; induction ls1, ls2; cbn; intros;
rewrite ?Bool.andb_true_iff in *;
f_equal; try congruence; intuition auto.
Qed.
Global Instance fold_andb_map_Proper {A B}
: Proper (pointwise_relation _ (pointwise_relation _ eq) ==> eq ==> eq ==> eq) (@fold_andb_map A B).
Proof.
unfold pointwise_relation.
intros f g H ls1 y ? ls2 z ?; subst y z.
revert ls2; induction ls1, ls2; cbn; try reflexivity.
apply f_equal2; eauto.
Qed.
Lemma fold_andb_map_iff A B R ls1 ls2
: (@fold_andb_map A B R ls1 ls2 = true)
<-> (length ls1 = length ls2
/\ (forall v, List.In v (List.combine ls1 ls2) -> R (fst v) (snd v) = true)).
Proof.
revert ls2; induction ls1 as [|x xs IHxs], ls2 as [|y ys]; cbn; try solve [ intuition (congruence || auto) ]; [].
rewrite Bool.andb_true_iff, IHxs.
split; intros [H0 H1]; split; auto;
intuition (congruence || (subst; auto)).
apply (H1 (_, _)); auto.
Qed.
Lemma fold_andb_map_snoc A B f x xs y ys
: @fold_andb_map A B f (xs ++ [x]) (ys ++ [y]) = @fold_andb_map A B f xs ys && f x y.
Proof.
clear.
revert ys; induction xs as [|x' xs'], ys as [|y' ys']; cbn;
rewrite ?Bool.andb_true_r, ?Bool.andb_false_r;
try (destruct ys'; cbn; rewrite Bool.andb_false_r);
try (destruct xs'; cbn; rewrite Bool.andb_false_r);
try reflexivity.
rewrite IHxs', Bool.andb_assoc; reflexivity.
Qed.
|