diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-14 07:56:47 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-14 07:56:47 +0100 |
commit | 8b9a4cb340bc135da9907c7d313caa11d078cb16 (patch) | |
tree | 76e25f1ef4ab6834dba3d135f64485af5045cd75 /backend/CSE3proof.v | |
parent | 0203dc3fea6b05b3929ac6bd458ff432285b8c00 (diff) | |
download | compcert-kvx-8b9a4cb340bc135da9907c7d313caa11d078cb16.tar.gz compcert-kvx-8b9a4cb340bc135da9907c7d313caa11d078cb16.zip |
Icond
Diffstat (limited to 'backend/CSE3proof.v')
-rw-r--r-- | backend/CSE3proof.v | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/backend/CSE3proof.v b/backend/CSE3proof.v index 3a7590ea..8a49fe87 100644 --- a/backend/CSE3proof.v +++ b/backend/CSE3proof.v @@ -642,9 +642,10 @@ Proof. * IND_STEP. - (* Icond *) econstructor. split. - + eapply exec_Icond; try eassumption. - * erewrite transf_function_at by eauto. simpl. - admit. + + eapply exec_Icond with (args := (subst_args (ctx:=(context_from_hints (snd (preanalysis tenv f)))) (fst (preanalysis tenv f)) pc args)); try eassumption. + * TR_AT. reflexivity. + * rewrite subst_args_ok with (sp:=sp) (m:=m) by trivial. + eassumption. * reflexivity. + econstructor; eauto. destruct b; IND_STEP. |