https://github.com/EasyCrypt/easycrypt
Tip revision: 846710a2a656834065e745d19416ebdc83158f55 authored by Benjamin Gregoire on 14 July 2019, 06:50:07 UTC
Start restructuration of the code to be able to avant mutual dependency between type and mpath
Start restructuration of the code to be able to avant mutual dependency between type and mpath
Tip revision: 846710a
ecPhlTAuto.ml
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2016 - IMDEA Software Institute
* Copyright (c) - 2012--2018 - Inria
* Copyright (c) - 2012--2018 - Ecole Polytechnique
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcFol
open EcCoreGoal
open EcLowPhlGoal
(* -------------------------------------------------------------------- *)
let t_hoare_true_r tc =
match (FApi.tc1_goal tc).f_node with
| FhoareF hf when f_equal hf.hf_po f_true ->
FApi.xmutate1 tc `HoareTrue []
| FhoareS hs when f_equal hs.hs_po f_true ->
FApi.xmutate1 tc `HoareTrue []
| _ ->
tc_error !!tc
"the conclusion is not of the form %s"
"hoare[_ : _ ==> true]"
let t_hoare_true = FApi.t_low0 "hoare-true" t_hoare_true_r
(* -------------------------------------------------------------------- *)
let t_core_exfalso_r tc =
let pre = tc1_get_pre tc in
if not (f_equal pre f_false) then
tc_error !!tc "pre-condition is not `false'";
FApi.xmutate1 tc `ExFalso []
let t_core_exfalso = FApi.t_low0 "core-exfalso" t_core_exfalso_r