diff options
| author | Emilio Jesus Gallego Arias | 2019-04-16 20:56:41 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-16 20:56:41 +0200 |
| commit | 55c43917f41064777e248b9e270b04a2b86e76f3 (patch) | |
| tree | 8544430766bfaa23fd67f3db87231661cc3c76d6 /test-suite/success/ProgramWf.v | |
| parent | 3dc819375ceeb02f6f565b0d5d1fbf99752a6ffa (diff) | |
| parent | 002482e6d254e1b269e4e427121fe05a1d3a77b1 (diff) | |
Merge PR #9165: Recarg cleanup
Reviewed-by: Zimmi48
Reviewed-by: ejgallego
Reviewed-by: herbelin
Reviewed-by: mattam82
Ack-by: maximedenes
Diffstat (limited to 'test-suite/success/ProgramWf.v')
| -rw-r--r-- | test-suite/success/ProgramWf.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/success/ProgramWf.v b/test-suite/success/ProgramWf.v index 85d7a770fc..02adb012d9 100644 --- a/test-suite/success/ProgramWf.v +++ b/test-suite/success/ProgramWf.v @@ -13,7 +13,7 @@ Print sigT_rect. Obligation Tactic := program_simplify ; auto with *. About MR. -Program Fixpoint merge (n m : nat) {measure (n + m) (lt)} : nat := +Program Fixpoint merge (n m : nat) {measure (n + m) lt} : nat := match n with | 0 => 0 | S n' => merge n' m @@ -101,5 +101,5 @@ Next Obligation. simpl in *; intros. Qed. Program Fixpoint check_n' (n : nat) (m : {m:nat | m = n}) (p : nat) (q:{q : nat | q = p}) - {measure (p - n) p} : nat := + {measure (p - n)} : nat := _. |