Require Logic.MinimunLogic.Semantics.Kripke.
Require Logic.MinimunLogic.Semantics.Trivial.
Local Open Scope logic_base.
Local Open Scope syntax.
Local Open Scope kripke_model.
Section SemanticEquiv.
Context {L: Language}
{minL: MinimunLanguage L}
{MD: Model}
{SM: Semantics L MD}.

(* Specifications: *)
Lemma eqR_KripkeIntuitionistic: @Kripke.KripkeIntuitionisticSemantics L MD (unit_kMD _) tt eq SM.
Lemma Trivial2Kripke {tpSM: Trivial.TrivialMinimunSemantics L MD SM}:
@Kripke.KripkeMinimunSemantics L minL MD (unit_kMD _) tt eq SM.