Skip to content

Commit 821871e

Browse files
committed
1 parent a99fefc commit 821871e

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

src/Minimalistic.v

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -920,9 +920,9 @@ Section Language.
920920
- intros.
921921
split.
922922
+ intros.
923-
eapply PositiveMapProperties.filter_iff; intuition.
923+
eapply PositiveMapProperties.filter_iff; intuition auto with *.
924924
+ intros MF.
925-
eapply PositiveMapProperties.filter_iff in MF; intuition.
925+
eapply PositiveMapProperties.filter_iff in MF; intuition auto with *.
926926
- pose proof (PositiveMapProperties.F.find_mapsto_iff m x) as F.
927927
remember (PositiveMap.find x m) as o.
928928
destruct o as [t|].
@@ -939,7 +939,7 @@ Section Language.
939939
eauto.
940940
}
941941
symmetry.
942-
eapply PositiveMapProperties.filter_iff; intuition.
942+
eapply PositiveMapProperties.filter_iff; intuition auto with *.
943943
+ remember (PositiveMap.find
944944
x
945945
(PositiveMapProperties.filter
@@ -1057,7 +1057,7 @@ Section Language.
10571057
intros.
10581058
eapply PositiveMapProperties.F.Equal_mapsto_iff.
10591059
intros.
1060-
rewrite PositiveMapProperties.filter_iff; intuition.
1060+
rewrite PositiveMapProperties.filter_iff; intuition auto with *.
10611061
Qed.
10621062

10631063
Lemma mapsto_in :
@@ -1075,7 +1075,7 @@ Section Language.
10751075
Comp_eq (generate_randomness eta s)
10761076
(ret (PositiveMap.empty (interp_type trand eta) : PositiveMap.tree _)).
10771077
Proof.
1078-
intros; eapply PositiveSetProperties.fold_1; intuition.
1078+
intros; eapply PositiveSetProperties.fold_1; intuition auto with *.
10791079
Qed.
10801080

10811081
(* TODO Need a canonical map *)
@@ -1091,7 +1091,7 @@ Section Language.
10911091
eapply positive_map_equal_eq.
10921092
eapply PositiveMapProperties.F.Equal_mapsto_iff.
10931093
intros k e.
1094-
rewrite PositiveMapProperties.filter_iff; intuition.
1094+
rewrite PositiveMapProperties.filter_iff; intuition auto with *.
10951095
exfalso; eapply PositiveMapProperties.F.empty_mapsto_iff; eauto.
10961096
Qed.
10971097

@@ -1265,7 +1265,7 @@ Section Language.
12651265
Bool.le b1 b2 ->
12661266
Bool.le (negb b2) (negb b1).
12671267
Proof.
1268-
destruct b1; destruct b2; intuition.
1268+
destruct b1; destruct b2; intuition auto with *.
12691269
Qed.
12701270

12711271
Lemma weak_whp_impl_dist_always a b : always (a -> b) -> (whp a -> whp b)%core.

0 commit comments

Comments
 (0)