STRING_EQ_CONV : term -> thm
|- "s" = "t" <=> T or |- "s" = "t" <=> F
# STRING_EQ_CONV `"same" = "same"`;; val it : thm = |- "same" = "same" <=> T # STRING_EQ_CONV `"knowledge" = "power"`;; val it : thm = |- "knowledge" = "power" <=> F