https://github.com/EasyCrypt/easycrypt
Tip revision: 3798b1a269fc1f40f3c09e248d29530f1a66d8d5 authored by Pierre-Yves Strub on 28 September 2021, 13:50:14 UTC
CI
CI
Tip revision: 3798b1a
ecPhlTrans.mli
(* --------------------------------------------------------------------
* 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 EcParsetree
open EcCoreGoal.FApi
(* -------------------------------------------------------------------- *)
(* Transitivity rule for equiv
*
*
* 1. forall m1 m2 m3, Q1 m1 m2 => Q2 m2 m3 => Q m1 m3
* 2. c1 ~ c2 : P1 ==> Q1
* 3. c2 ~ c3 : P2 ==> Q2
* --------------------------------------------------------
* c1 ~ c3 : P ==> Q
* The most basic rule is normally:
* Q = exists m2, Q1 m1 m2 /\ Q2 m2 m3
*
* The actual rule is in this core rule + conseq.
*)
(* -------------------------------------------------------------------- *)
val process_equiv_trans :
trans_kind * trans_formula -> backward