Skip to content
Snippets Groups Projects
Commit 2da5f091 authored by Björn Brandenburg's avatar Björn Brandenburg
Browse files

fix warnings in prosa.util.search_arg

parent 9bd265d8
No related branches found
No related tags found
No related merge requests found
...@@ -170,7 +170,7 @@ Section ArgSearch. ...@@ -170,7 +170,7 @@ Section ArgSearch.
destruct (P (f n)) eqn:Pfn => //=. destruct (P (f n)) eqn:Pfn => //=.
- rewrite <- REC in IND. - rewrite <- REC in IND.
destruct (R (f n) (f q)) eqn:REL => some_x_is; destruct (R (f n) (f q)) eqn:REL => some_x_is;
move => y [/andP [a_le_y y_lt_Sn] Pfy]; move=> y /andP [a_le_y y_lt_Sn] Pfy;
injection some_x_is => x_is; rewrite -{}x_is //; injection some_x_is => x_is; rewrite -{}x_is //;
move: y_lt_Sn; rewrite ltnS; move: y_lt_Sn; rewrite ltnS;
rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n]. rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n].
...@@ -185,13 +185,13 @@ Section ArgSearch. ...@@ -185,13 +185,13 @@ Section ArgSearch.
+ move: (IND q REC y) => HOLDS. + move: (IND q REC y) => HOLDS.
apply HOLDS => //. apply HOLDS => //.
by apply /andP; split. by apply /andP; split.
- move=> some_q_is y [/andP [a_le_y y_lt_Sn] Pfy]. - move=> some_q_is y /andP [a_le_y y_lt_Sn] Pfy.
move: y_lt_Sn. rewrite ltnS. move: y_lt_Sn. rewrite ltnS.
rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n]. rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n].
+ exfalso. move: Pfn => /negP Pfn. by subst. + exfalso. move: Pfn => /negP Pfn. by subst.
+ apply IND => //. by apply /andP; split. + apply IND => //. by apply /andP; split.
- move=> some_n_is. injection some_n_is => n_is. - move=> some_n_is. injection some_n_is => n_is.
move=> y [/andP [a_le_y y_lt_Sn] Pfy]. move=> y /andP [a_le_y y_lt_Sn] Pfy.
move: y_lt_Sn. rewrite ltnS. move: y_lt_Sn. rewrite ltnS.
rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n]. rewrite leq_eqVlt => /orP [/eqP EQ | y_lt_n].
+ by rewrite -n_is EQ; apply (R_reflexive (f n)). + by rewrite -n_is EQ; apply (R_reflexive (f n)).
...@@ -235,4 +235,4 @@ Section ExMinn. ...@@ -235,4 +235,4 @@ Section ExMinn.
by move: MIN; rewrite leqNgt; move => /negP MIN; apply: MIN. by move: MIN; rewrite leqNgt; move => /negP MIN; apply: MIN.
Qed. Qed.
End ExMinn. End ExMinn.
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment