CMorphisms (p.jasmin.2025.06.1.doc.jasmin.jasmin.Jasmin.CMorphisms)

type ('a, 'r) coq_Proper = 'r

type ('a, 'b, 'r, 'x) respectful = 'a -> 'a -> 'r -> 'x

val subrelation_respectful : 
  ('a1, 'a2, 'a3) CRelationClasses.subrelation ->
  ('a4, 'a5, 'a6) CRelationClasses.subrelation ->
  ('a1 ->
    'a4,
    ('a1, 'a4, 'a3, 'a5) respectful,
    ('a1, 'a4, 'a2, 'a6) respectful)
    CRelationClasses.subrelation

val subrelation_proper : 
  'a1 ->
  ('a1, 'a2) coq_Proper ->
  'a1 CRelationClasses.crelation Init.coq_Unconvertible ->
  ('a1, 'a2, 'a3) CRelationClasses.subrelation ->
  ('a1, 'a3) coq_Proper