File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed
Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -54,7 +54,7 @@ Section SetoidRewriteTests.
5454 Proof .
5555 intros A ? ? ? a b c eq_ab eq_bc.
5656 by rewrite eq_ab, <- eq_bc.
57- Abort .
57+ Defined .
5858
5959 Goal forall (A : Type) `(H : Is0Gpd A) (a b c : A),
6060 a $== b -> b $== c -> a $== c.
@@ -64,22 +64,22 @@ Section SetoidRewriteTests.
6464 rewrite eq_ab, <- eq_bc.
6565 rewrite eq_bc.
6666 by rewrite <- eq_bc.
67- Abort .
67+ Defined .
6868
6969 Goal forall (A B : Type) (F : A -> B) `{Is1Functor _ _ F} (a b : A) (f g : a $-> b), f $== g -> fmap F f $== fmap F g.
7070 Proof .
7171 do 17 intro.
7272 intro eq_fg.
7373 by rewrite eq_fg.
74- Abort .
74+ Defined .
7575
7676 Goal forall (A : Type) `{Is1Cat A} (a b c : A) (f1 f2 : a $-> b) (g : b $-> c), f1 $== f2 -> g $o f1 $== g $o f2.
7777 Proof .
7878 do 11 intro.
7979 intro eq.
8080 rewrite <- eq.
8181 by rewrite eq.
82- Abort .
82+ Defined .
8383
8484 Goal forall (A : Type) `{Is1Cat A} (a b c : A) (f : a $-> b) (g1 g2 : b $-> c), g1 $== g2 -> g1 $o f $== g2 $o f.
8585 Proof .
@@ -88,7 +88,7 @@ Section SetoidRewriteTests.
8888 rewrite <- eq.
8989 rewrite eq.
9090 by rewrite <- eq.
91- Abort .
91+ Defined .
9292
9393 Goal forall (A : Type) `{Is1Cat A} (a b c : A) (f1 f2 : a $-> b) (g1 g2 : b $-> c), g1 $== g2 -> f1 $== f2 -> g1 $o f1 $== g2 $o f2.
9494 Proof .
@@ -98,6 +98,6 @@ Section SetoidRewriteTests.
9898 rewrite <- eq_f.
9999 rewrite eq_f.
100100 by rewrite <- eq_g.
101- Abort .
101+ Defined .
102102
103103End SetoidRewriteTests.
You can’t perform that action at this time.
0 commit comments