@@ -920,9 +920,9 @@ Section Language.
920
920
- intros.
921
921
split.
922
922
+ intros.
923
- eapply PositiveMapProperties.filter_iff; intuition.
923
+ eapply PositiveMapProperties.filter_iff; intuition auto with * .
924
924
+ intros MF.
925
- eapply PositiveMapProperties.filter_iff in MF; intuition.
925
+ eapply PositiveMapProperties.filter_iff in MF; intuition auto with * .
926
926
- pose proof (PositiveMapProperties.F.find_mapsto_iff m x) as F.
927
927
remember (PositiveMap.find x m) as o.
928
928
destruct o as [t|].
@@ -939,7 +939,7 @@ Section Language.
939
939
eauto.
940
940
}
941
941
symmetry.
942
- eapply PositiveMapProperties.filter_iff; intuition.
942
+ eapply PositiveMapProperties.filter_iff; intuition auto with * .
943
943
+ remember (PositiveMap.find
944
944
x
945
945
(PositiveMapProperties.filter
@@ -1057,7 +1057,7 @@ Section Language.
1057
1057
intros.
1058
1058
eapply PositiveMapProperties.F.Equal_mapsto_iff.
1059
1059
intros.
1060
- rewrite PositiveMapProperties.filter_iff; intuition.
1060
+ rewrite PositiveMapProperties.filter_iff; intuition auto with * .
1061
1061
Qed .
1062
1062
1063
1063
Lemma mapsto_in :
@@ -1075,7 +1075,7 @@ Section Language.
1075
1075
Comp_eq (generate_randomness eta s)
1076
1076
(ret (PositiveMap.empty (interp_type trand eta) : PositiveMap.tree _)).
1077
1077
Proof .
1078
- intros; eapply PositiveSetProperties.fold_1; intuition.
1078
+ intros; eapply PositiveSetProperties.fold_1; intuition auto with * .
1079
1079
Qed .
1080
1080
1081
1081
(* TODO Need a canonical map *)
@@ -1091,7 +1091,7 @@ Section Language.
1091
1091
eapply positive_map_equal_eq.
1092
1092
eapply PositiveMapProperties.F.Equal_mapsto_iff.
1093
1093
intros k e.
1094
- rewrite PositiveMapProperties.filter_iff; intuition.
1094
+ rewrite PositiveMapProperties.filter_iff; intuition auto with * .
1095
1095
exfalso; eapply PositiveMapProperties.F.empty_mapsto_iff; eauto.
1096
1096
Qed .
1097
1097
@@ -1265,7 +1265,7 @@ Section Language.
1265
1265
Bool.le b1 b2 ->
1266
1266
Bool.le (negb b2) (negb b1).
1267
1267
Proof .
1268
- destruct b1; destruct b2; intuition.
1268
+ destruct b1; destruct b2; intuition auto with * .
1269
1269
Qed .
1270
1270
1271
1271
Lemma weak_whp_impl_dist_always a b : always (a -> b) -> (whp a -> whp b)%core.
0 commit comments