diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:33:57 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:33:57 +0100 |
| commit | e2d7bba73f52285475da813433c703d7df7ae44a (patch) | |
| tree | 370ace815a967f1847103e4a26f7b94c81dc323d /src/hls/HTLgenproof.v | |
| parent | 405e822a4e769969ef01a683d486accee0d71da2 (diff) | |
| download | vericert-e2d7bba73f52285475da813433c703d7df7ae44a.tar.gz vericert-e2d7bba73f52285475da813433c703d7df7ae44a.zip | |
Update to Coq 8.17 and CompCert 3.12
Diffstat (limited to 'src/hls/HTLgenproof.v')
| -rw-r--r-- | src/hls/HTLgenproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/HTLgenproof.v b/src/hls/HTLgenproof.v index 1089356..4fc00bc 100644 --- a/src/hls/HTLgenproof.v +++ b/src/hls/HTLgenproof.v @@ -140,7 +140,7 @@ Definition match_prog (p: RTL.program) (tp: HTL.program) := Linking.match_program (fun cu f tf => transl_fundef f = Errors.OK tf) eq p tp /\ main_is_internal p = true. -Instance TransfHTLLink (tr_fun: RTL.program -> Errors.res HTL.program): +#[global] Instance TransfHTLLink (tr_fun: RTL.program -> Errors.res HTL.program): TransfLink (fun (p1: RTL.program) (p2: HTL.program) => match_prog p1 p2). Proof. red. intros. exfalso. destruct (link_linkorder _ _ _ H) as [LO1 LO2]. |